/php-ARCHIVOS/exportar_imputacion_cobranza_cliente.php

https://github.com/cabenitez/factuweb · PHP · 173 lines · 124 code · 31 blank · 18 comment · 9 complexity · 212b3c244bed5213183c66085bbe864d MD5 · raw file

  1. <?
  2. $ano = substr($fecha_buscar,0,4);
  3. $mes = substr($fecha_buscar,4,2);
  4. $dia = substr($fecha_buscar,-2);
  5. $fecha_titulo = "$dia/$mes/$ano"; // maqueta la fecha para imprimir
  6. //---------------------- Titulo del listado-------------------------------------------------//
  7. $titulo = "IMPUTACION DE COBRANZAS";
  8. //---------------------- INCLUYE CONFIGURACION DE PDF --------------------------------------//
  9. include("conf_listados.php");
  10. if($cod_tal){
  11. //---------------------- INCLUYE CONEXION A BD -----------------------------------------------//
  12. include("conexion.php");
  13. // Obtiene el detalle de todos los comprobantes Factura Vta Cliente
  14. // Obtiene el detalle de todos los comprobantes Factura Vta Cliente
  15. $consulta ="SELECT * FROM cc_vta_detalle where num_recibo =$num_fac and cod_talonario_recibo ='$cod_tal' and num_talonario_recibo =$num_tal ";
  16. $result = mysql_query($consulta); // hace la consulta
  17. $registro = mysql_fetch_row($result); // toma el registro
  18. $filas = mysql_num_rows ($result); //indica la cantidad de resultados
  19. if($filas > 0){
  20. //----------------------------------- PDF --------------------------------------------------------------------------------------------//
  21. //-------------------------//
  22. $len_n_talonario=strlen($num_tal); // completo el numero de la sucursal con ceros
  23. $ceros_3 = '';
  24. while ($len_n_talonario < 4){
  25. $ceros_3.="0";
  26. $len_n_talonario++;
  27. }
  28. $num_tal=$ceros_3.$num_tal;
  29. //-------------------------//
  30. $len_num_sucursal=strlen($suc); // completo el numero de la sucursal con ceros
  31. $ceros_2 = '';
  32. while ($len_num_sucursal < 4){
  33. $ceros_2.="0";
  34. $len_num_sucursal++;
  35. }
  36. $suc=$ceros_2.$suc;
  37. //-------------------------//
  38. $len_num_factura=strlen($num_fac); // completo el numero de factura con ceros
  39. $ceros= '';
  40. while ($len_num_factura < 8){ // completo el numero de la factura con ceros
  41. $ceros.="0";
  42. $len_num_factura++;
  43. }
  44. $num_fac=$ceros.$num_fac;
  45. $pdf->SetFont('Arial','',8);
  46. $pdf->Cell(1,3, 'COMPROBANTE: '. $num_tal.' - ' .$desc_fac.' '.$suc.' '.$num_fac,0,1);
  47. //---------------------- creo los titulos de las columnas-----------------------------------//
  48. $pdf->SetFont('Arial','',8);
  49. $pdf->Cell(6,8,'Nº TAL');
  50. $pdf->SetX(22);
  51. $pdf->Cell(10,8,'COMPROBANTE');
  52. $pdf->SetX(70);
  53. $pdf->Cell(10,8,'OBSERVACION');
  54. $pdf->SetX(115);
  55. $pdf->Cell(10,8,'IMPUTADO POR');
  56. $pdf->SetX(170);
  57. $pdf->Cell(10,8,'FECHA');
  58. $pdf->SetX(190);
  59. $pdf->Cell(10,8,'IMPORTE');
  60. //---------------------- creo la linea -----------------------------------------------------//
  61. $pdf->Line(7,34,205,34); // linea
  62. $pdf->Ln(7); //Salto de línea
  63. $pdf->SetFont('Arial','',7);
  64. do{ // obtengo los resultados
  65. $n_f=$registro[1];
  66. $cod_tal_f=$registro[2];
  67. $num_tal_f=$registro[3];
  68. $importe=$registro[7];
  69. $fecha_imp=$registro[8];
  70. $obs=$registro[9];
  71. $usuario_cs=$registro[10];
  72. //====================OBTENGO LA DESCRIPCION DEL RECIBO==========================//
  73. $consulta2 = "select * from tipo_talonario inner join talonario on tipo_talonario.cod_talonario = talonario.cod_talonario
  74. where talonario.cod_talonario = '$cod_tal_f' and talonario.num_talonario = $num_tal_f";
  75. $result2 = mysql_query($consulta2);
  76. $registro2 = mysql_fetch_row($result2);
  77. $desc_f=$registro2[1];
  78. $suc_f=$registro2[5];
  79. //-------------------------//
  80. $len_num_tal_f=strlen($num_tal_f); // completo el numero de la sucursal con ceros
  81. $ceros_3 = '';
  82. while ($len_num_tal_f < 4){
  83. $ceros_3.="0";
  84. $len_num_tal_f++;
  85. }
  86. $num_tal_f=$ceros_3.$num_tal_f;
  87. //-------------------------//
  88. $len_num_sucursal_f=strlen($suc_f); // completo el numero de la sucursal con ceros
  89. $ceros_2 = '';
  90. while ($len_num_sucursal_f < 4){
  91. $ceros_2.="0";
  92. $len_num_sucursal_f++;
  93. }
  94. $suc_f=$ceros_2.$suc_f;
  95. //-------------------------//
  96. $len_n_f=strlen($n_f); // completo el numero de factura con ceros
  97. $ceros= '';
  98. while ($len_n_f < 8){ // completo el numero de la factura con ceros
  99. $ceros.="0";
  100. $len_n_f++;
  101. }
  102. $n_f=$ceros.$n_f;
  103. //----------------------------------------------------------------------------------------------------------------//
  104. $ano = substr($fecha_imp,0,4);
  105. $mes = substr($fecha_imp,4,2);
  106. $dia = substr($fecha_imp,-2);
  107. $fecha_imp = "$dia/$mes/$ano"; // maqueta la fecha para imprimir
  108. //----------------------------------------------------------------------------------------------------------------//
  109. $pdf->Cell(1,3,$num_tal_f,0,0);
  110. $pdf->SetX(22);
  111. $pdf->Cell(1,3,$desc_f.' '.$suc_f.' '.$n_f,0,0);
  112. $pdf->SetX(70);
  113. $pdf->Cell(1,3,$obs,0,0);
  114. $consulta22 = "SELECT nombre FROM usuario where usuario = '$usuario_cs'"; // consulta sql
  115. $result22 = mysql_query($consulta22); // hace la consulta
  116. $registro22 = mysql_fetch_row($result22); // toma el registro
  117. $usuario_cs = $registro22[0];
  118. $pdf->SetX(115);
  119. $pdf->Cell(1,3,$usuario_cs,0,0);
  120. $pdf->SetX(170);
  121. $pdf->Cell(1,3,$fecha_imp,0,0);
  122. $pdf->SetX(-7);
  123. $pdf->Cell(1,3,number_format($importe,2,'.',''),0,1,'R');
  124. $total_importe= $total_importe + $importe;
  125. }while($registro = mysql_fetch_array($result)); //end while
  126. //---------------------- creo el resumen de total de filas------------------------------//
  127. $pdf->SetFont('Arial','',10);
  128. $pdf->Cell(0,0,"_____________________________________________________________________________________________________",0,0,'L');
  129. $pdf->Ln(3); //Salto de línea
  130. $pdf->SetFont('Arial','',8);
  131. $pdf->SetX(6);
  132. $pdf->Cell(0,3,'TOTALES',0,0);
  133. $pdf->SetX(-7);
  134. $pdf->Cell(1,3, number_format($total_importe,2,'.',''),0,0,'R');
  135. }
  136. if(empty($destino)){
  137. $pdf->Output(); // muestra en pantalla
  138. }else{
  139. $pdf->Output('pdf/'.$usuario_sesion.'.pdf','F'); // guarda en el server
  140. }
  141. } // FIN DE if($fecha_buscar){
  142. ?>