require "libs/db_utils.php"; include "classes/db_protprocesso_classe.php"; include "classes/db_procandam_classe.php"; include "classes/db_proctransfer_classe.php"; include "classes/db_proctransferproc_classe.php"; include "classes/db_proctransand_classe.php"; include "classes/db_proctransferintand_classe.php"; include "classes/db_proctransferint_classe.php"; include "classes/db_procandamint_classe.php"; include "classes/db_procandamintand_classe.php"; include "classes/db_arqproc_classe.php"; include "classes/db_arqandam_classe.php"; include "dbforms/db_funcoes.php"; include "classes/db_protparam_classe.php"; //se $db21_usasisagua = 't' utiliza o modulo agua db_sel_instit(null, "db21_usasisagua"); db_postmemory($HTTP_SERVER_VARS); db_postmemory($HTTP_POST_VARS); $utils = new db_utils(); $oPOST = $utils->postMemory($_POST); $clprotprocesso = new cl_protprocesso(); $clprocandam = new cl_procandam(); $clproctransfer = new cl_proctransfer(); $clproctransferproc = new cl_proctransferproc(); $clproctransand = new cl_proctransand(); $clproctransferintand = new cl_proctransferintand(); $clproctransferint = new cl_proctransferint(); $clprocandamint = new cl_procandamint(); $clprocandamintand = new cl_procandamintand(); $clarqproc = new cl_arqproc(); $clarqandam = new cl_arqandam();
$sqltermo = "select k40_forma\n from termo\n inner join cadtipoparc on k40_codigo = v07_desconto\n where v07_numpre = {$k00_numpre}"; $resulttermo = db_query($sqltermo) or die($sqltermo); if (pg_numrows($resulttermo) > 0) { db_fieldsmemory($resulttermo, 0); if ($k40_forma == 2 and $k00_numpar == $k00_numtot) { $imprimircodbar = false; } } if ($imprimircodbar == true) { $pdf1->linha_digitavel = $linha_digitavel; $pdf1->codigo_barras = $codigo_barras; } else { $pdf1->linha_digitavel = null; $pdf1->codigo_barras = null; } db_sel_instit(); $pdf1->enderpref = $ender; $pdf1->cgcpref = $cgc; $pdf1->numeropref = $numero; $pdf1->municpref = $munic; $pdf1->telefpref = $email; $pdf1->emailpref = $telef; @($pdf1->especie = @$especie); // VERIFICA SE É UM PARCELAMENTO COM DESCONTO, SE FOR MOSTRAR O DESCONTO NO CARNE. $sqlVerParcel = "select k00_numpre,k00_numpar,k00_receit,k00_valor,k00_dtvenc,k00_tipo,v07_totpar,k40_aplicacao\n from termo\n inner join arrecad on v07_numpre = k00_numpre\n inner join cadtipoparc on k40_codigo = v07_desconto\n where k00_numpre = {$k00_numpre} and k00_numpar = {$k00_numpar} "; //echo "<br> $sqlVerParcel <br>"; $resultVerParcel = db_query($sqlVerParcel); $linhasVerParcel = pg_num_rows($resultVerParcel); if ($linhasVerParcel > 0) { db_fieldsmemory($resultVerParcel, 0); //calcula o desconto.