array( "mes_referencia"=>"09", "ano_nasc"=>"1990", "bairro"=>"CENTRO", "cod_familia"=>"868", "cep"=>"62900000", "dia_nasc"=>"13", "titular_conta"=>"UNIMED CEARA", "data_vencimento"=>"05/09/14", "data_emissao"=>"18/08/14", "cod_empresa"=>"7950", "uf"=>"CE", "ano"=>"2014", "data_nasc"=>"13/03/1990", "nome_beneficiario"=>"DANIELLY MARINHO FERREIRA", "valor"=>"00201,45", "Dv"=>"8", "carteira"=>"002003876692", "numero"=>"82000543211", "cod_unimed"=>"979", "endereco"=>"TV VEREADOR JOEL CORREIA 150", "mes_nasc"=>"03", "cidade"=>"RUSSAS"), "2"=>array( "mes_referencia"=>"09", "ano_nasc"=>"1930", "bairro"=>"CENTRO", "cod_familia"=>"44", "cep"=>"63430000", "dia_nasc"=>"09", "titular_conta"=>"UNIMED CEARA", "data_vencimento"=>"05/09/14", "data_emissao"=>"18/08/14", "cod_empresa"=>"7801", "uf"=>"CE", "ano"=>"2014", "data_nasc"=>"09/04/1930", "nome_beneficiario"=>"JOAO PINTO NOGUEIRA", "valor"=>"00455,50", "Dv"=>"3", "carteira"=>"002003431896", "numero"=>"82000528077", "cod_unimed"=>"979", "endereco"=>"R FRANCISCO MACIEL 1447", "carteira_cobranca"=>"SI", "cod_banco"=>"104", "mes_nasc"=>"04", "cidade"=>"ICO"), "3"=>array( "cod_unimed"=>"979", "cod_familia"=>"828", "cod_empresa"=>"7030", "data_vencimento"=>"05/09/14", "data_emissao"=>"18/08/14", "mes_referencia"=>"09", "ano"=>"2014", "data_nasc"=>"17/01/1975", "dia_nasc"=>"17", "mes_nasc"=>"01", "ano_nasc"=>"1975", "nome_beneficiario"=>"ZELIA FERREIRA LIMA", "endereco"=>"R SAMUEL ANTERO 950", "bairro"=>"CENTRO", "cidade"=>"ICO", "uf"=>"CE", "cep"=>"63430000", "carteira"=>"002003920345", "Dv"=>"5", "numero"=>"82000503872", "valor"=>"00204,51") ); $x = rand(1,3); if($_GET || $_POST) { $titular_conta = "UNIMED CEARA"; $cod_agencia = "668"; $cedente = "1003"; $dv_cedente = "8"; $cod_banco = "104"; $dg_banco = "0"; $dg_agencia = "003"; $cod_unimed = $cli[$x]['cod_unimed']; $cod_empresa = $cli[$x]['cod_empresa']; $cod_familia = $cli[$x]['cod_familia']; $carteira = $cli[$x]['carteira']; $Dv = $cli[$x]['Dv']; $mes_referencia = $cli[$x]['mes_referencia']; $ano = $cli[$x]['ano']; $dia_nasc = $cli[$x]['dia_nasc']; $mes_nasc = $cli[$x]['mes_nasc']; $ano_nasc = $cli[$x]['ano_nasc']; $data_vencimento = $cli[$x]['data_vencimento']; $data_emissao = $cli[$x]['data_emissao']; $data_nasc = $cli[$x]['data_nasc']; $data_documento = $cli[$x]['data_vencimento']; $nome_beneficiario = $cli[$x]['nome_beneficiario']; $endereco = $cli[$x]['endereco']; $bairro = $cli[$x]['bairro']; $cidade = $cli[$x]['cidade']; $uf = $cli[$x]['uf']; $cep = $cli[$x]['cep']; $numero = $cli[$x]['numero']; $valor = $cli[$x]['valor']; $mensagem2 = "Apos o vencimento, pagavel somente nas Agencias Lotericas Ou Caixa Economica Federal"; $mensagem3 = "Apos 30 dias do vencimento, contatar a Unimed"; $mensagem1 = "Pagavel preferencialmente nas Agencias Lotericas ou Caixa Economica Federal"; $mensagem4 = "Duvidas, contate o SAC: 0800 280 5358"; $carteira_cobranca = "SI"; $cod_situacao_agru = "0"; $cont = $cont + 1; $CodBanco = $cod_banco; $CodMoeda = '9'; /* $mes_referencia = "09"; $NossoNum4 = "2000"; $NossoNum1 = "8"; $Linha_Dig_CEF_SIGCB = "10490.10034 50387.066801 03000.010037 8 61770000020451"; $ano_nasc = "1975"; $AgenciaFim = "0668"; $DvFim2 = "1"; $DvFim3 = "7"; $ValorFormat1 = "51"; $ValorFormat3 = "204"; $NumContaBB = "00001.003SI"; $Linha_Dig_CEF = "10498.20002 50387.066801 03000.010037 8 61770000020451"; $Juros = "0.068"; $dia_nasc = "17"; $DvFimBB2 = "8"; $DvFimBB3 = "3"; $NossoNumC2_P1 = "50387"; $ano = "2014"; $Linha_Dig_BB = "10498.20002 50387.206688 00001.003SI3 8 61770000020451"; $Dv1 = "2"; $CodBanco = "104"; $ValorFormatadoF = "204,51"; $Dv = "5"; $Dc11 = "8"; $C = "0668"; $NossoNumBBSDV = "50387.20668"; $carteira = "002003920345"; $CodBancoBB = "104"; $CodMoeda = "9"; $mes_nasc = "01"; $linha = "10498.20002  50387.066801 03000.010037  8  61770000020451"; $CodBar = "10498617700000204518200050387066800300001003"; $Campo5 = "61770000020451"; $Campo3_1 = "03"; $Campo3_2 = "000.01003"; */ $Carteira = $carteira_cobranca; $Agencia = $cod_agencia; $CodBanco = $cod_banco; $CarteiraBB = $carteira_cobranca; ////////////INICIO----> Campos para o boleto da caixa da Unimed Crateús - CFE_SIGCB ////////////////// ////////////////// //$cedente = "86273"; //$dv_cedente = "8"; //$numero = "240000000000000447"; $cedente_CFE_SIGCB = "0".$cedente; // posicão 20-25, tamnaho 6 digitos do Cod. barras $cedente_CFE_SIGCB_com_dv = $cedente_CFE_SIGCB.$dv_cedente; // posicão 20-26, tamnaho 1 digito do Cod. barras $numero_CFE_SIGCB = substr($numero,0,16); $numero_CFE_SIGCB_com_dv = $numero_CFE_SIGCB.substr($numero,17,1); $constant1 = substr($numero,0,1); $constant2 = substr($numero,1,1); $seq1_CFE_SIGCB = substr($numero,2,3); $seq2_CFE_SIGCB = substr($numero,5,3); $seq3_CFE_SIGCB = substr($numero,8,9); $C_Livre_CFE_SIGCB_Sdv = $cedente_CFE_SIGCB_com_dv.$seq1_CFE_SIGCB.$constant1.$seq2_CFE_SIGCB.$constant2.$seq3_CFE_SIGCB; $CodBarSemDC_SIGCB = $C_Livre_CFE_SIGCB_Sdv; ///////////////////////----->CEF-SIGCB/////////////////////// ///////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////// $ValorPFormat = $valor; $ValorFormat1 = substr($ValorPFormat,8,2); $ValorFormat2 = substr($ValorPFormat,0,8); $ValorFormat3 = ltrim($ValorFormat2,"0"); $ValorFormatadoF = $ValorFormat3.",".$ValorFormat1; // verificação para ver se o Banco é o BB if (strlen($CodBanco)==1) { $CodBanco="0"."0".$CodBanco; } $CodBancoBB = $CodBanco; //VARIAVEL CRIADA PARA IMPRIMIR OS JUROS AO DIA $Jurosdia = $ValorFormatadoF; // Formatar o Valor //$Juros = $Jurosdia*0.001; $Juros = $Jurosdia*1; //echo 'Juros multiplicado por 1 = '.$Juros.'
'; $Juros = $Juros/100; //echo 'Juros dividido por 100 = '.$Juros.'
'; $Juros = $Juros/30; // Variaveis para formar o Campo 5 $DataVenc = $data_vencimento; $ValorDoc = $valor; //Para tirar o "." e a "," do valor do titulo.v $ValorDoc = str_replace('.','',$ValorDoc); $ValorDoc = str_replace(',','',$ValorDoc); //Calculo do fator de vencimento $DataVenc = explode('/',$DataVenc); $DiaVenc = $DataVenc[0]; $MesVenc = $DataVenc[1]; $AnoVenc = $DataVenc[2]; $DataInic = explode('/','07/10/1997'); $DiaInic = $DataInic[0]; $MesInic = $DataInic[1]; $AnoInic = $DataInic[2]; $DataInic = mktime(0,0,0,$MesInic,$DiaInic,$AnoInic); $DataVenc = mktime(0,0,0,$MesVenc,$DiaVenc,$AnoVenc); $FatorVenc = $DataVenc - $DataInic; // 24 horas * 60 minutos * 60 segundos $Segundos = 24*60*60; $FatorVenc = ceil($FatorVenc/$Segundos); $FatorVencFim = $FatorVenc; $ValorDocumento = $ValorDoc; //variavel $Campo5 = $FatorVencFim.$ValorDoc;//umento; //Incremento de Zeros a esquerda Da variavel $Agencia do Campo 2 if(strlen($Agencia)==2) { $Agencia = "0"."0".$Agencia; } if(strlen($Agencia)==3) { $Agencia = "0".$Agencia; } $AgenciaFim = $Agencia;// variavel criada para armazenar o valor de $Agencia com ou sem Zeros. //Acrescenta Zero a esquerda de $Dg_Agencia se seu tamanho for 1 do campo3 da Caixa $Dg_Agencia = $dg_agencia; if((strlen($Dg_Agencia)==1) && ($Dg_Agencia<>7 && $Dg_Agencia<>"X" && $Dg_Agencia<>2)) { $Dg_Agencia="0"."0".$Dg_Agencia; } $CedenteBB = $cedente; // Pertencente ao BB //Incremento de zeros para o campo 3 do BB sem o DV do mesmo if(strlen($CedenteBB)==2) { $Campo3BB = "0"."0"."0"."0"."0"."."."0".$CedenteBB.$CarteiraBB; } if(strlen($CedenteBB)==3) { $Campo3BB = "0"."0"."0"."0"."0".".".$CedenteBB.$CarteiraBB; } if(strlen($CedenteBB)==4) { $Campo3BB = "0"."0"."0"."0".substr($CedenteBB,0,1).".".substr($CedenteBB,1,3).$CarteiraBB ; } if(strlen($CedenteBB)==5) { $Campo3BB = "0"."0"."0".substr($CedenteBB,0,2).".".substr($CedenteBB,2,3).$CarteiraBB ; } if(strlen($CedenteBB)==6) { $Campo3BB = "0"."0".substr($CedenteBB,0,3).".".substr($CedenteBB,3,3).$CarteiraBB ; } if(strlen($CedenteBB)==7) { $Campo3BB = "0".substr($CedenteBB,0,4).".".substr($CedenteBB,4,3).$CarteiraBB ; } if(strlen($CedenteBB)==8) { $Campo3BB = substr($CedenteBB,0,5).".".substr($CedenteBB,5,3).$CarteiraBB ; } $NumContaBB = $Campo3BB; $Campo3BB_2 = str_replace('.','',$NumContaBB);// variavel criada para integrar o Cod. de Barras do BB sem o "." // // $Cedente = $cedente; // a primeira variavel dessa linha, é criada nessa linha e a segunda veio do SELECT // Aqui segue um incremento de Zeros para preencher os 5 espaços finais,antes do DV, do Campo3 if (strlen($Cedente)==2 && ($Dg_Agencia==003 || $Dg_Agencia==870)) { $Cedente = "0"."0"."0"."."."0"."0"."0".$Cedente; } if (strlen($Cedente)==3 && ($Dg_Agencia==003 || $Dg_Agencia==870)) { $Cedente = "0"."0"."0"."."."0"."0".$Cedente; } if (strlen($Cedente)==4 && ($Dg_Agencia==003 || $Dg_Agencia==870)) { $Cedente = "0"."0"."0"."."."0".$Cedente; } $NumConta = $cedente; $DataVenc1 = $data_vencimento; $ValorDoc1 = $valor; $NossoNum = $numero; //Criadas por Ricardo Lorenzo Lima Bonfim // Campo 1 $NossoNum1 = substr($numero,0,1); $NossoNum4 = substr($numero,1,4); $NossoNumJ = $CodBanco.$CodMoeda.$NossoNum1.$NossoNum4; // Campo 2 da Caixa $NossoNumC2_P1 = substr($numero,5,5); $NossoNumC2_P2 = substr($numero,9); $NossoNumC2J = $NossoNumC2_P1.$AgenciaFim.substr($Dg_Agencia,0,1); //verificar possivel erro // Campo 2 do BB $NossoNumBB1 = substr($numero,5,5); $NossoNumBB2 = substr($numero,10,1); $NossoNumBBSDV = $NossoNumBB1.".".$NossoNumBB2.$AgenciaFim; //verificar possivel erro $NossoNumBBSDVC = $NossoNumBB1.$NossoNumBB2.$AgenciaFim;// Campo 2 concatenado para para o calculo do dv // if ($Dg_Agencia==003 || $Dg_Agencia==870) { $Campo3_1 = substr($Dg_Agencia,1,2); } $Dg_AgenciaFim = $Campo3_1; $Campo3_2 = $Cedente; $Campo3_21 = str_replace('.','',$Campo3_2);// Variavel criada para receber sem o "." a variavel Campo3_2 que irá formar o Codigo Barras $Campo3Total = $Campo3_1.$Campo3_21;//Modificado antes era $Campo3Total = $Campo3_1.$Campo3_2 if(strlen($Campo3_21)==7) { $Campo3TotalCDB=$Dg_Agencia."0".$Campo3_21; } //para o cod. de barras if(strlen($Campo3_21)<>7) { $Campo3TotalCDB=$Dg_Agencia.$Campo3_21; } } ?> 9) {$P1 = $P1-9;} $P2 = $NossoNumJ[1]*1; if ($P2 > 9) {$P2 = $P2-9;} $P3 = $NossoNumJ[2]*2; if ($P3 > 9) {$P3 = $P3-9;} $P4 = $NossoNumJ[3]*1; if ($P4 > 9) {$P4 = $P4-9;} $P5 = $NossoNumJ[4]*2; if ($P5 > 9) {$P5 = $P5-9;} $P6 = $NossoNumJ[5]*1; if ($P6 > 9) {$P6 = $P6-9;} $P7 = $NossoNumJ[6]*2; if ($P7 > 9) {$P7 = $P7-9;} $P8 = $NossoNumJ[7]*1; if ($P8 > 9) {$P8 = $P8-9;} $P9 = $NossoNumJ[8]*2; if ($P9 > 9) {$P9 = $P9-9;} $Soma = $P1+$P2+$P3+$P4+$P5+$P6+$P7+$P8+$P9; return $Soma; } function Modulo1($Soma1) // Aqui começa o Calculo para o DV do Campo 2 { $Resultado1 = floor($Soma1/10); $Resto1 = $Soma1 - ($Resultado1 * 10); $Dv2 = 10-$Resto1; if ($Dv2 == '10') { $Dv2 = '0'; } return $Dv2; } function Soma1 ($NossoNumC2J) { $P12 = $NossoNumC2J[0]*1; if ($P12 > 9) {$P12 = $P12-9;} $P22 = $NossoNumC2J[1]*2; if ($P22 > 9) {$P22 = $P22-9;} $P32 = $NossoNumC2J[2]*1; if ($P32 > 9) {$P32 = $P32-9;} $P42 = $NossoNumC2J[3]*2; if ($P42 > 9) {$P42 = $P42-9;} $P52 = $NossoNumC2J[4]*1; if ($P52 > 9) {$P52 = $P52-9;} $P62 = $NossoNumC2J[5]*2; if ($P62 > 9) {$P62 = $P62-9;} $P72 = $NossoNumC2J[6]*1; if ($P72 > 9) {$P72 = $P72-9;} $P82 = $NossoNumC2J[7]*2; if ($P82 > 9) {$P82 = $P82-9;} $P92 = $NossoNumC2J[8]*1; if ($P92 > 9) {$P92 = $P92-9;} $P102 = $NossoNumC2J[9]*2; if ($P102 > 9) {$P102 = $P102-9;} $Soma1 = $P12+$P22+$P32+$P42+$P52+$P62+$P72+$P82+$P92+$P102; return $Soma1; } function Modulo2($Soma2) // Aqui começa o Calculo para o DV do Campo 3 { $Resultado2 = floor($Soma2/10); $Resto2 = $Soma2 - ($Resultado2 * 10); $Dv3 = 10 - $Resto2; if ($Dv3 == '10') { $Dv3 = '0'; } return $Dv3; } function Soma2 ($Campo3Total) { $P13 = $Campo3Total[0]*1; if ($P13 > 9) {$P13 = $P13-9;} $P23 = $Campo3Total[1]*2; if ($P23 > 9) {$P23 = $P23-9;} $P33 = $Campo3Total[2]*1; if ($P33 > 9) {$P33 = $P33-9;} $P43 = $Campo3Total[3]*2; if ($P43 > 9) {$P43 = $P43-9;} $P53 = $Campo3Total[4]*1; if ($P53 > 9) {$P53 = $P53-9;} $P63 = $Campo3Total[5]*2; if ($P63 > 9) {$P63 = $P63-9;} $P73 = $Campo3Total[6]*1; if ($P73 > 9) {$P73 = $P73-9;} $P83 = $Campo3Total[7]*2; if ($P83 > 9) {$P83 = $P83-9;} $P93 = $Campo3Total[8]*1; if ($P93 > 9) {$P93 = $P93-9;} $P103 = $Campo3Total[9]*2; if ($P103 > 9) {$P103 = $P103-9;} $Soma2 = $P13+$P23+$P33+$P43+$P53+$P63+$P73+$P83+$P93+$P103; return $Soma2; } function ModuloBB2($SomaBB2) // Aqui começa o Calculo para o DV do Campo 2 do BB { $ResultadoBB2 = floor($SomaBB2/10); $RestoBB2 = $SomaBB2 - ($ResultadoBB2 * 10); $DvBB2 = 10-$RestoBB2; if ($DvBB2 == '10') { $DvBB2 = '0'; } return $DvBB2; } function SomaBB2 ($NossoNumBBSDVC) { $PBB12 = $NossoNumBBSDVC[0]*1; if ($PBB12 > 9) {$PBB12 = $PBB12-9;} $PBB22 = $NossoNumBBSDVC[1]*2; if ($PBB22 > 9) {$PBB22 = $PBB22-9;} $PBB32 = $NossoNumBBSDVC[2]*1; if ($PBB32 > 9) {$PBB32 = $PBB32-9;} $PBB42 = $NossoNumBBSDVC[3]*2; if ($PBB42 > 9) {$PBB42 = $PBB42-9;} $PBB52 = $NossoNumBBSDVC[4]*1; if ($PBB52 > 9) {$PBB52 = $PBB52-9;} $PBB62 = $NossoNumBBSDVC[5]*2; if ($PBB62 > 9) {$PBB62 = $PBB62-9;} $PBB72 = $NossoNumBBSDVC[6]*1; if ($PBB72 > 9) {$PBB72 = $PBB72-9;} $PBB82 = $NossoNumBBSDVC[7]*2; if ($PBB82 > 9) {$PBB82 = $PBB82-9;} $PBB92 = $NossoNumBBSDVC[8]*1; if ($PBB92 > 9) {$PBB92 = $PBB92-9;} $PBB102 = $NossoNumBBSDVC[9]*2; if ($PBB102 > 9) {$PBB102 = $PBB102-9;} $SomaBB2 = $PBB12+$PBB22+$PBB32+$PBB42+$PBB52+$PBB62+$PBB72+$PBB82+$PBB92+$PBB102; return $SomaBB2; } function ModuloBB3($SomaBB3) // Aqui começa o Calculo para o DV do Campo 3 do BB { $ResultadoBB3 = floor($SomaBB3/10); $RestoBB3 = $SomaBB3 - ($ResultadoBB3 * 10); $DvBB3 = 10 - $RestoBB3; if ($DvBB3 == '10') { $DvBB3 = '0'; } return $DvBB3; } function SomaBB3 ($Campo3BB_2) { $PBB13 = $Campo3BB_2[0]*1; if ($PBB13 > 9) {$PBB13 = $PBB13-9;} $PBB23 = $Campo3BB_2[1]*2; if ($PBB23 > 9) {$PBB23 = $PBB23-9;} $PBB33 = $Campo3BB_2[2]*1; if ($PBB33 > 9) {$PBB33 = $PBB33-9;} $PBB43 = $Campo3BB_2[3]*2; if ($PBB43 > 9) {$PBB43 = $PBB43-9;} $PBB53 = $Campo3BB_2[4]*1; if ($PBB53 > 9) {$PBB53 = $PBB53-9;} $PBB63 = $Campo3BB_2[5]*2; if ($PBB63 > 9) {$PBB63 = $PBB63-9;} $PBB73 = $Campo3BB_2[6]*1; if ($PBB73 > 9) {$PBB73 = $PBB73-9;} $PBB83 = $Campo3BB_2[7]*2; if ($PBB83 > 9) {$PBB83 = $PBB83-9;} $PBB93 = $Campo3BB_2[8]*1; if ($PBB93 > 9) {$PBB93 = $PBB93-9;} $PBB103 = $Campo3BB_2[9]*2; if ($PBB103 > 9) {$PBB103 = $PBB103-9;} $SomaBB3 = $PBB13+$PBB23+$PBB33+$PBB43+$PBB53+$PBB63+$PBB73+$PBB83+$PBB93+$PBB103; return $SomaBB3; } $Soma = Soma($NossoNumJ);//pertence ao campo 1 $Soma1 = Soma1($NossoNumC2J); // pertence ao campo2 $Soma2 = Soma2($Campo3Total);// pertence ao campo 3 $SomaBB2 = SomaBB2($NossoNumBBSDVC);// pertence ao campo 2 do BB $SomaBB3 = SomaBB3($Campo3BB_2);// pertence ao campo 3 do BB $Dv1 = Modulo($Soma); $Dv2 = Modulo1($Soma1); $Dv3 = Modulo2($Soma2); $DvBB2 = ModuloBB2($SomaBB2); $DvBB3 = ModuloBB3($SomaBB3); $DvFim = $Dv1; $DvFim3 = $Dv3; $DvFimBB2 = $DvBB2; $DvFimBB3 = $DvBB3; //if ($DvFim <9) // {$DvFim = "0".$DvFim;) //if ($Dv2 <=9) //{$Dv2 ="0".$Dv2;} $DvFim2 =$Dv2; $NossoNumJDv1 = $NossoNumJ.$DvFim; //Campo 1 concatenado $NossoNumC2JDvFim = $NossoNumC2_P1.$AgenciaFim.substr($Dg_Agencia,0,1).$DvFim2; //Campo 2 concatenado $Campo3Total = $Campo3_1.$Campo3_2; $Campo3TotalDvFim3 = $Campo3_1.$Campo3_2.$DvFim3;//Campo 3 concatenado ////////////////////////////////////////CEF-SIGCB/////////////////////// function Modulo11_SIGCB($Soma_11_SIGCB) { $Resultado11_SIGCB = floor($Soma_11_SIGCB/11); $Resto11_SIGCB = $Soma_11_SIGCB - ($Resultado11_SIGCB * 11); $Dc11_SIGCB = 11-$Resto11_SIGCB; if ($Dc11_SIGCB > '9') { $Dc11_SIGCB = '0'; } return $Dc11_SIGCB; } function Soma11_SIGCB ($CodBarSemDC_SIGCB) { $P_SIGCB_1_11 = $CodBarSemDC_SIGCB[0]*9; $P_SIGCB_2_11 = $CodBarSemDC_SIGCB[1]*8; $P_SIGCB_3_11 = $CodBarSemDC_SIGCB[2]*7; $P_SIGCB_4_11 = $CodBarSemDC_SIGCB[3]*6; $P_SIGCB_5_11 = $CodBarSemDC_SIGCB[4]*5; $P_SIGCB_6_11 = $CodBarSemDC_SIGCB[5]*4; $P_SIGCB_7_11 = $CodBarSemDC_SIGCB[6]*3; $P_SIGCB_8_11 = $CodBarSemDC_SIGCB[7]*2; $P_SIGCB_9_11 = $CodBarSemDC_SIGCB[8]*9; $P_SIGCB_10_11 = $CodBarSemDC_SIGCB[9]*8; $P_SIGCB_11_11 = $CodBarSemDC_SIGCB[10]*7; $P_SIGCB_12_11 = $CodBarSemDC_SIGCB[11]*6; $P_SIGCB_13_11 = $CodBarSemDC_SIGCB[12]*5; $P_SIGCB_14_11 = $CodBarSemDC_SIGCB[13]*4; $P_SIGCB_15_11 = $CodBarSemDC_SIGCB[14]*3; $P_SIGCB_16_11 = $CodBarSemDC_SIGCB[15]*2; $P_SIGCB_17_11 = $CodBarSemDC_SIGCB[16]*9; $P_SIGCB_18_11 = $CodBarSemDC_SIGCB[17]*8; $P_SIGCB_19_11 = $CodBarSemDC_SIGCB[18]*7; $P_SIGCB_20_11 = $CodBarSemDC_SIGCB[19]*6; $P_SIGCB_21_11 = $CodBarSemDC_SIGCB[20]*5; $P_SIGCB_22_11 = $CodBarSemDC_SIGCB[21]*4; $P_SIGCB_23_11 = $CodBarSemDC_SIGCB[22]*3; $P_SIGCB_24_11 = $CodBarSemDC_SIGCB[23]*2; //$P_SIGCB_25_11 = $CodBarSemDC_SIGCB[24]*2; $Soma_11_SIGCB_1 = $P_SIGCB_1_11+$P_SIGCB_2_11+$P_SIGCB_3_11+$P_SIGCB_4_11+$P_SIGCB_5_11+$P_SIGCB_6_11+$P_SIGCB_7_11+$P_SIGCB_8_11; $Soma_11_SIGCB_2 = $P_SIGCB_9_11+$P_SIGCB_10_11+$P_SIGCB_11_11+$P_SIGCB_12_11+$P_SIGCB_13_11+$P_SIGCB_14_11+$P_SIGCB_15_11; $Soma_11_SIGCB_3 =$P_SIGCB_16_11+$P_SIGCB_17_11+$P_SIGCB_18_11+$P_SIGCB_19_11+$P_SIGCB_20_11+$P_SIGCB_21_11+$P_SIGCB_22_11; $Soma_11_SIGCB_4 =$P_SIGCB_23_11+$P_SIGCB_24_11;//+$P_SIGCB_25_11; $Soma_11_SIGCB = $Soma_11_SIGCB_1+$Soma_11_SIGCB_2+$Soma_11_SIGCB_3+$Soma_11_SIGCB_4; return $Soma_11_SIGCB; } $Soma_11_SIGCB = Soma11_SIGCB($CodBarSemDC_SIGCB);//pertence ao DAC $Dc11_SIGCB = Modulo11_SIGCB($Soma_11_SIGCB); $DcFim11_SIGCB = $Dc11_SIGCB; $C_Livre_CFE_SIGCB = $C_Livre_CFE_SIGCB_Sdv.$DcFim11_SIGCB; if ($CodBancoBB==001) //Condição para pegar o codigo de barra do BB ou CAIXA {$CodBarSemDC=$CodBancoBB.$CodMoeda.$FatorVencFim.$valor.substr($NossoNum,0,11).$AgenciaFim.$Campo3BB_2;} if (($CodBanco==104)&&($cedente_CFE_SIGCB<>"086273")) //Condição para pegar o codigo de barra do BB ou CAIXA {$CodBarSemDC=$CodBanco.$CodMoeda.$FatorVencFim.$valor.substr($NossoNum,0,10).$AgenciaFim.$Campo3TotalCDB;} if (($CodBanco==104)&&($cedente_CFE_SIGCB=="086273")) //Condição para pegar o codigo de barra do BB ou CAIXA {$CodBarSemDC=$CodBanco.$CodMoeda.$FatorVencFim.$valor.$C_Livre_CFE_SIGCB;} function Modulo11($Soma_11) { $Resultado11 = floor($Soma_11/11); $Resto11 = $Soma_11 - ($Resultado11 * 11); $Dc11 = 11-$Resto11; if ($Dc11 == '10' || $Dc11 == '11' || $Dc11 == '0'){ $Dc11 = '1'; } return $Dc11; } function Soma11 ($CodBarSemDC) { $P1_11 = $CodBarSemDC[0]*4; $P2_11 = $CodBarSemDC[1]*3; $P3_11 = $CodBarSemDC[2]*2; $P4_11 = $CodBarSemDC[3]*9; $P5_11 = $CodBarSemDC[4]*8; $P6_11 = $CodBarSemDC[5]*7; $P7_11 = $CodBarSemDC[6]*6; $P8_11 = $CodBarSemDC[7]*5; $P9_11 = $CodBarSemDC[8]*4; $P10_11 = $CodBarSemDC[9]*3; $P11_11 = $CodBarSemDC[10]*2; $P12_11 = $CodBarSemDC[11]*9; $P13_11 = $CodBarSemDC[12]*8; $P14_11 = $CodBarSemDC[13]*7; $P15_11 = $CodBarSemDC[14]*6; $P16_11 = $CodBarSemDC[15]*5; $P17_11 = $CodBarSemDC[16]*4; $P18_11 = $CodBarSemDC[17]*3; $P19_11 = $CodBarSemDC[18]*2; $P20_11 = $CodBarSemDC[19]*9; $P21_11 = $CodBarSemDC[20]*8; $P22_11 = $CodBarSemDC[21]*7; $P23_11 = $CodBarSemDC[22]*6; $P24_11 = $CodBarSemDC[23]*5; $P25_11 = $CodBarSemDC[24]*4; $P26_11 = $CodBarSemDC[25]*3; $P27_11 = $CodBarSemDC[26]*2; $P28_11 = $CodBarSemDC[27]*9; $P29_11 = $CodBarSemDC[28]*8; $P30_11 = $CodBarSemDC[29]*7; $P31_11 = $CodBarSemDC[30]*6; $P32_11 = $CodBarSemDC[31]*5; $P33_11 = $CodBarSemDC[32]*4; $P34_11 = $CodBarSemDC[33]*3; $P35_11 = $CodBarSemDC[34]*2; $P36_11 = $CodBarSemDC[35]*9; $P37_11 = $CodBarSemDC[36]*8; $P38_11 = $CodBarSemDC[37]*7; $P39_11 = $CodBarSemDC[38]*6; $P40_11 = $CodBarSemDC[39]*5; $P41_11 = $CodBarSemDC[40]*4; $P42_11 = $CodBarSemDC[41]*3; $P43_11 = $CodBarSemDC[42]*2; $Soma_11_1 = $P1_11+$P2_11+$P3_11+$P4_11+$P5_11+$P6_11+$P7_11+$P8_11; $Soma_11_2 = $P9_11+$P10_11+$P11_11+$P12_11+$P13_11+$P14_11+$P15_11; $Soma_11_3 = $P16_11+$P17_11+$P18_11+$P19_11+$P20_11+$P21_11+$P22_11; $Soma_11_4 = $P23_11+$P24_11+$P25_11+$P26_11+$P27_11+$P28_11; $Soma_11_5 = $P29_11+$P30_11+$P31_11+$P32_11+$P33_11+$P34_11; $Soma_11_6 = $P35_11+$P36_11+$P37_11+$P38_11+$P39_11+$P40_11+$P41_11+$P42_11+$P43_11; $Soma_11 = $Soma_11_1+$Soma_11_2+$Soma_11_3+$Soma_11_4+$Soma_11_5+$Soma_11_6; return $Soma_11; } $Soma_11 = Soma11($CodBarSemDC);//pertence ao DAC $Dc11 = Modulo11($Soma_11); $DcFim11 = $Dc11; ////////////////////////////////////////CEF-SIGCB/////////////////////// // testa o codigo do banco, para fazer o Cod. de Barra para cada um if ($CodBancoBB==001) //Condição para pegar o codigo de barra do BB ou CAIXA {$CodBar=$CodBancoBB.$CodMoeda.$DcFim11.$FatorVencFim.$valor.substr($NossoNum,0,11).$AgenciaFim.$Campo3BB_2;} if (($CodBanco==104)&&($cedente_CFE_SIGCB<>"086273")) {$CodBar=$CodBanco.$CodMoeda.$DcFim11.$FatorVencFim.$valor.substr($NossoNum,0,10).$AgenciaFim.$Campo3TotalCDB;} if (($CodBanco==104)&&($cedente_CFE_SIGCB=="086273")) {$CodBar=$CodBanco.$CodMoeda.$DcFim11.$FatorVencFim.$valor.$C_Livre_CFE_SIGCB;} //////////INICIO ---------->CAMPOS LINHA DIGITAVEL CEF-SIGCB CRATEUS SEM O DV////////////// $Campo1_SIGCB = substr($CodBar,0,3).substr($CodBar,3,1).substr($C_Livre_CFE_SIGCB,0,1).substr($C_Livre_CFE_SIGCB,1,4);//.$Dv_1_CEF_SIGCB; $Campo2_SIGCB = substr($CodBar,24,5).substr($CodBar,29,5);//.$Dv_2_CEF_SIGCB; $Campo3_SIGCB = substr($CodBar,34,5).substr($CodBar,39,5);//.$Dv_3_CEF_SIGCB; $Campo4_SIGCB = substr($CodBar,4,1); $Campo5_SIGCB = substr($CodBar,5,14); /////////////////INICIO-----------> MODULOS 10 PARA CRATEUS CEF-SIGCB///////// ///////////////////////////////////////////////////////////////////////////// //Aqui começa o calculo para o DV do Campo1 CRATEUS CEF-SIGCB function Modulo_SIGCB_1($Soma_SIGCB_1) { $Resultado_SIGCB_1 = floor($Soma_SIGCB_1/10); $Resto_SIGCB_1 = $Soma_SIGCB_1 - ($Resultado_SIGCB_1 * 10); $Dv_SIGCB_1 = 10-$Resto_SIGCB_1; if ($Dv_SIGCB_1 == '10') { $Dv_SIGCB_1 = '0'; } return $Dv_SIGCB_1; } function Soma_SIGCB_1 ($Campo1_SIGCB) // Modulo 10 para o DV do campo 1 { $P_SIGCB_1_1 = $Campo1_SIGCB[0]*2; if ($P_SIGCB_1_1 > 9) {$P_SIGCB_1_1 = $P_SIGCB_1_1-9;} $P_SIGCB_1_2 = $Campo1_SIGCB[1]*1; if ($P_SIGCB_1_2 > 9) {$P_SIGCB_1_2 = $P_SIGCB_1_2-9;} $P_SIGCB_1_3 = $Campo1_SIGCB[2]*2; if ($P_SIGCB_1_3 > 9) {$P_SIGCB_1_3 = $P_SIGCB_1_3-9;} $P_SIGCB_1_4 = $Campo1_SIGCB[3]*1; if ($P_SIGCB_1_4 > 9) {$P_SIGCB_1_4 = $P_SIGCB_1_4-9;} $P_SIGCB_1_5 = $Campo1_SIGCB[4]*2; if ($P_SIGCB_1_5 > 9) {$P_SIGCB_1_5 = $P_SIGCB_1_5-9;} $P_SIGCB_1_6 = $Campo1_SIGCB[5]*1; if ($P_SIGCB_1_6 > 9) {$P_SIGCB_1_6 = $P_SIGCB_1_6-9;} $P_SIGCB_1_7 = $Campo1_SIGCB[6]*2; if ($P_SIGCB_1_7 > 9) {$P_SIGCB_1_7 = $P_SIGCB_1_7-9;} $P_SIGCB_1_8 = $Campo1_SIGCB[7]*1; if ($P_SIGCB_1_8 > 9) {$P_SIGCB_1_8 = $P_SIGCB_1_8-9;} $P_SIGCB_1_9 = $Campo1_SIGCB[8]*2; if ($P_SIGCB_1_9 > 9) {$P_SIGCB_1_9 = $P_SIGCB_1_9-9;} $Soma_SIGCB_1 = $P_SIGCB_1_1+$P_SIGCB_1_2+$P_SIGCB_1_3+$P_SIGCB_1_4+$P_SIGCB_1_5+$P_SIGCB_1_6+$P_SIGCB_1_7+$P_SIGCB_1_8+$P_SIGCB_1_9; return $Soma_SIGCB_1; } ////Aqui começa o calculo para o DV do Campo2 CRATEUS CEF-SIGCB function Modulo_SIGCB_2($Soma_SIGCB_2) { $Resultado_SIGCB_2 = floor($Soma_SIGCB_2/10); $Resto_SIGCB_2 = $Soma_SIGCB_2 - ($Resultado_SIGCB_2 * 10); $Dv_SIGCB_2 = 10-$Resto_SIGCB_2; if ($Dv_SIGCB_2 == '10') { $Dv_SIGCB_2 = '0'; } return $Dv_SIGCB_2; } function Soma_SIGCB_2 ($Campo2_SIGCB) // Modulo 10 para o DV do campo 2 { $P_SIGCB_2_1 = $Campo2_SIGCB[0]*1; if ($P_SIGCB_2_1 > 9) {$P_SIGCB_2_1 = $P_SIGCB_2_1-9;} $P_SIGCB_2_2 = $Campo2_SIGCB[1]*2; if ($P_SIGCB_2_2 > 9) {$P_SIGCB_2_2 = $P_SIGCB_2_2-9;} $P_SIGCB_2_3 = $Campo2_SIGCB[2]*1; if ($P_SIGCB_2_3 > 9) {$P_SIGCB_2_3 = $P_SIGCB_2_3-9;} $P_SIGCB_2_4 = $Campo2_SIGCB[3]*2; if ($P_SIGCB_2_4 > 9) {$P_SIGCB_2_4 = $P_SIGCB_2_4-9;} $P_SIGCB_2_5 = $Campo2_SIGCB[4]*1; if ($P_SIGCB_2_5 > 9) {$P_SIGCB_2_5 = $P_SIGCB_2_5-9;} $P_SIGCB_2_6 = $Campo2_SIGCB[5]*2; if ($P_SIGCB_2_6 > 9) {$P_SIGCB_2_6 = $P_SIGCB_2_6-9;} $P_SIGCB_2_7 = $Campo2_SIGCB[6]*1; if ($P_SIGCB_2_7 > 9) {$P_SIGCB_2_7 = $P_SIGCB_2_7-9;} $P_SIGCB_2_8 = $Campo2_SIGCB[7]*2; if ($P_SIGCB_2_8 > 9) {$P_SIGCB_2_8 = $P_SIGCB_2_8-9;} $P_SIGCB_2_9 = $Campo2_SIGCB[8]*1; if ($P_SIGCB_2_9 > 9) {$P_SIGCB_2_9 = $P_SIGCB_2_9-9;} $P_SIGCB_2_10 = $Campo2_SIGCB[9]*2; if ($P_SIGCB_2_10 > 9) {$P_SIGCB_2_10 = $P_SIGCB_2_10-9;} //$P_SIGCB_2_11 = $Campo2_SIGCB[9]*2; if ($P_SIGCB_2_11 > 9) {$P_SIGCB_2_11 = $P_SIGCB_2_11-9;} $Soma_SIGCB_2 = $P_SIGCB_2_1+$P_SIGCB_2_2+$P_SIGCB_2_3+$P_SIGCB_2_4+$P_SIGCB_2_5+$P_SIGCB_2_6+$P_SIGCB_2_7+$P_SIGCB_2_8+$P_SIGCB_2_9+$P_SIGCB_2_10; return $Soma_SIGCB_2; } ////Aqui começa o calculo para o DV do Campo3 CRATEUS CEF-SIGCB function Modulo_SIGCB_3($Soma_SIGCB_3) { $Resultado_SIGCB_3 = floor($Soma_SIGCB_3/10); $Resto_SIGCB_3 = $Soma_SIGCB_3 - ($Resultado_SIGCB_3 * 10); $Dv_SIGCB_3 = 10-$Resto_SIGCB_3; if ($Dv_SIGCB_3 == '10') { $Dv_SIGCB_3 = '0'; } return $Dv_SIGCB_3; } function Soma_SIGCB_3 ($Campo3_SIGCB) // Modulo 10 para o DV do campo 3 { $P_SIGCB_3_1 = $Campo3_SIGCB[0]*1; if ($P_SIGCB_3_1 > 9) {$P_SIGCB_3_1 = $P_SIGCB_3_1-9;} $P_SIGCB_3_2 = $Campo3_SIGCB[1]*2; if ($P_SIGCB_3_2 > 9) {$P_SIGCB_3_2 = $P_SIGCB_3_2-9;} $P_SIGCB_3_3 = $Campo3_SIGCB[2]*1; if ($P_SIGCB_3_3 > 9) {$P_SIGCB_3_3 = $P_SIGCB_3_3-9;} $P_SIGCB_3_4 = $Campo3_SIGCB[3]*2; if ($P_SIGCB_3_4 > 9) {$P_SIGCB_3_4 = $P_SIGCB_3_4-9;} $P_SIGCB_3_5 = $Campo3_SIGCB[4]*1; if ($P_SIGCB_3_5 > 9) {$P_SIGCB_3_5 = $P_SIGCB_3_5-9;} $P_SIGCB_3_6 = $Campo3_SIGCB[5]*2; if ($P_SIGCB_3_6 > 9) {$P_SIGCB_3_6 = $P_SIGCB_3_6-9;} $P_SIGCB_3_7 = $Campo3_SIGCB[6]*1; if ($P_SIGCB_3_7 > 9) {$P_SIGCB_3_7 = $P_SIGCB_3_7-9;} $P_SIGCB_3_8 = $Campo3_SIGCB[7]*2; if ($P_SIGCB_3_8 > 9) {$P_SIGCB_3_8 = $P_SIGCB_3_8-9;} $P_SIGCB_3_9 = $Campo3_SIGCB[8]*1; if ($P_SIGCB_3_9 > 9) {$P_SIGCB_3_9 = $P_SIGCB_3_9-9;} $P_SIGCB_3_10 = $Campo3_SIGCB[9]*2; if ($P_SIGCB_3_10 > 9) {$P_SIGCB_3_10 = $P_SIGCB_3_10-9;} $Soma_SIGCB_3 = $P_SIGCB_3_1+$P_SIGCB_3_2+$P_SIGCB_3_3+$P_SIGCB_3_4+$P_SIGCB_3_5+$P_SIGCB_3_6+$P_SIGCB_3_7+$P_SIGCB_3_8+$P_SIGCB_3_9+$P_SIGCB_3_10; return $Soma_SIGCB_3; return $Soma_SIGCB_3; } /////////////////FIM-----------> MODULOS 10 PARA CRATEUS CEF-SIGCB///////// /////////////////////////////////////////////////////////////////////////// $Soma_SIGCB_1 = Soma_SIGCB_1 ($Campo1_SIGCB);//pertence ao campo 1 do CEF_SIGCB CRATEUS $Soma_SIGCB_2 = Soma_SIGCB_2 ($Campo2_SIGCB);//pertence ao campo 2 do CEF_SIGCB CRATEUS $Soma_SIGCB_3 = Soma_SIGCB_3 ($Campo3_SIGCB);//pertence ao campo 3 do CEF_SIGCB CRATEUS $Dv_SIGCB_1 = Modulo_SIGCB_1($Soma_SIGCB_1); $Dv_SIGCB_2 = Modulo_SIGCB_2($Soma_SIGCB_2); $Dv_SIGCB_3 = Modulo_SIGCB_3($Soma_SIGCB_3); //linha digitavel da CEF-SIGCB / Crateus $Linha_Dig_CEF_SIGCB = substr($Campo1_SIGCB,0,5).".".substr($Campo1_SIGCB,5,4).$Dv_SIGCB_1." ".substr($Campo2_SIGCB,0,5).".".substr($Campo2_SIGCB,5,5).$Dv_SIGCB_2." ".substr($Campo3_SIGCB,0,5).".".substr($Campo3_SIGCB,5,5).$Dv_SIGCB_3." ".$Campo4_SIGCB." ".$Campo5_SIGCB; //linha digitavel da CEF $Linha_Dig_CEF = $CodBanco.$CodMoeda.$NossoNum1.".".$NossoNum4.$Dv1." ".$NossoNumC2_P1.".".$AgenciaFim.substr($Dg_Agencia,0,1).$DvFim2." ".$Campo3_1.$Campo3_2.$DvFim3." ".$Dc11." ".$Campo5; //linha digitavel do BB $Linha_Dig_BB = $CodBanco.$CodMoeda.$NossoNum1.".".$NossoNum4.$Dv1." ".$NossoNumBBSDV.$DvFimBB2." ".$NumContaBB.$DvFimBB3." ".$Dc11." ".$Campo5; //////////FIM -------------> LINHA DIGITAVEL CEF-SIGCB CRATEUS////////////// ?> NULL || $CodBanco<>0) { $S=$cod_agencia; $L = 4 - strlen($S); while($L >= 1) { $N = $N + "0"; $L = $L - 1; } $C = $N.$S; } ?> Boleto Bancário 2ª via

Para visualizar, clique no botão abaixo:

NULL)) { // $ACTION="LayoutBoleto.php"; // echo "Seus Dados foram verificados com sucesso."; // echo "Clique no botão para visualizar e imprimir o Boleto Bancario."; //echo ""; echo ""; } //else //{ //} ?>