$pdf->Cell(0, 0, 'numCorte: ' . $_GET['numCorte'], 0, 0, L); //numero de paciente $pdf->SetXY(302, 25); $pdf->Cell(0, 0, 'Recibo: ' . $_GET['numRecibo'], 0, 0, R); //cambiar fecha //$myrow1['fecha1']=cambia_a_normal($myrow1['fecha1']); $fecha1 = date("d/m/Y"); $pdf->SetY(40); $pdf->Cell(0, 0, 'Fecha: ' . $fecha1, 0, 0, R); //Imprimo con salto de pagina $pdf->Ln(25); //salto de linea $pdf->SetFont('Arial', '', 10); $pdf->SetXY(2, 37); //dibujar una linea $pdf->Line(2, 48, 200, 48); //linea divisoria //$pdf->Line(23, 48, 23, 52); //etiquetas $pdf->SetFont('Arial', '', 10); $pdf->SetXY(2, 50); $pdf->Cell(0, 0, 'C', 0, 0, L); $pdf->SetXY(7, 50); $pdf->Cell(0, 0, 'Descripcion', 0, 0, L); $pdf->SetXY(183, 50); $pdf->Cell(0, 0, 'Importe', 0, 0, L); $pdf->Line(2, 52, 200, 52); //***************** $pdf->Ln(5); //salto de linea 15 lineas $pdf->SetFont('Arial', '', 10);
$pdf->Cell(0, 0, $myrow1y['descripcionCaja'], 0, 0, R); //Status $pdf->SetY(42); $pdf->Cell(0, 0, 'Tipo Px: ' . $myrow311['tipoPaciente'], 0, 0, R); //Usuario $pdf->SetY(45); $pdf->Cell(0, 0, 'Usuario Autorizo: ' . $myrow311['autoriza'], 0, 0, R); //Credencial/N�mina if ($myrow311['credencial']) { $pdf->SetXY(80, 45); $pdf->Cell(0, 0, 'Credencial/Nomina: ' . $myrow311['credencial'], 0, 0, M); } $pdf->SetFont('Arial', '', 10); //$pdf->SetXY(2,37); //dibujar una linea $pdf->Line(3, 47, 199, 47); //linea divisoria //$pdf->Line(23, 48, 23, 52); //etiquetas $pdf->SetFont('Arial', '', 10); $pdf->SetXY(2, 49); $pdf->Cell(0, 0, 'C', 0, 0, L); $pdf->SetXY(7, 49); $pdf->Cell(0, 0, 'Descripcion', 0, 0, L); $pdf->SetXY(186, 49); $pdf->Cell(0, 0, 'Importe', 0, 0, L); $pdf->Line(3, 51, 199, 51); //***************** $pdf->SetFont('Arial', '', 10); $pdf->Ln(2); //salto de linea 15 lineas
//$pdf->Line(3, 47, 199, 47); //linea divisoria //$pdf->Line(23, 48, 23, 52); //etiquetas $pdf->SetFont('Arial', '', $textoSize); //$pdf->SetXY(3,49); $pdf->SetXY(1, 17); $pdf->Cell(0, 0, 'C', 0, 0, L); //$pdf->SetXY(12,49); $pdf->SetXY(5, 17); $pdf->Cell(0, 0, 'Descripcion', 0, 0, L); //$pdf->SetXY(186,49); $pdf->SetXY($x3, 17); $pdf->Cell(0, 0, 'Importe', 0, 0, L); //$pdf->Line(3, 51, 199, 51); $pdf->Line(1, 18, 80, 18); //***************** //$pdf->SetFont('Arial','',10); $pdf->SetFont('Arial', '', $textoSize); $pdf->Ln(2); //salto de linea 15 lineas $sSQL = "SELECT *\r\nFROM\r\ncargosCuentaPaciente\r\nWHERE \r\nentidad='" . $_GET['entidad'] . "'\r\nand\r\nfolioVenta='" . $_GET['folioVenta'] . "'\r\nand\r\n(naturaleza='A' or naturaleza='C')\r\norder by status='transaccion'\r\n\r\n "; $result = mysql_db_query($basedatos, $sSQL); $registros = mysql_num_rows($result); while ($myrow = mysql_fetch_array($result)) { $codigoTT = $myrow['tipoTransaccion']; $flag += 1; $pdf->Ln(2); //salto de linea if ($myrow['gpoProducto'] != NULL) { $cargos[0] += $myrow['precioVenta'] * $myrow['cantidad'];
if ($myrow311['statusPaciente']) { $pdf->SetY(38); $pdf->Cell(0, 0, 'Tipo Px: ' . $myrow311['statusPaciente'], 0, 0, R); } //Usuario $pdf->SetY(42); $pdf->Cell(0, 0, 'Usuario Autoriz�: ' . $myrow311['usuario'], 0, 0, R); //Credencial/N�mina if ($myrow311['credencial']) { $pdf->SetY(45); $pdf->Cell(0, 0, 'Credencial/N�mina: ' . $myrow311['credencial'], 0, 0, R); } $pdf->SetFont('Arial', '', 10); //$pdf->SetXY(2,37); //dibujar una linea $pdf->Line(3, 47, 199, 47); //linea divisoria //$pdf->Line(23, 48, 23, 52); //etiquetas $pdf->SetFont('Arial', '', 10); $pdf->SetXY(2, 49); $pdf->Cell(0, 0, 'C', 0, 0, L); $pdf->SetXY(7, 49); $pdf->Cell(0, 0, 'Descripcion', 0, 0, L); $pdf->SetXY(186, 49); $pdf->Cell(0, 0, 'Importe', 0, 0, L); $pdf->Line(3, 51, 199, 51); //***************** $pdf->SetFont('Arial', '', 10); $pdf->Ln(2); //salto de linea 15 lineas
$pdf->Cell(0, 0, 'Cajero: ' . $_GET['usuario'], 0, 0, L); //numero de paciente $pdf->SetXY(300, 25); $pdf->Cell(0, 0, 'Folio: ' . $myrow311['folioVenta'], 0, 0, R); //cambiar fecha //$myrow1['fecha1']=cambia_a_normal($myrow1['fecha1']); $fecha1 = date("d/m/Y"); $pdf->SetY(29); $pdf->Cell(0, 0, 'Fecha: ' . $fecha1, 0, 0, R); //Imprimo con salto de pagina $pdf->Ln(25); //salto de linea $pdf->SetFont('Arial', '', 10); $pdf->SetXY(30, 37); //dibujar una linea $pdf->Line(23, 48, 200, 48); //linea divisoria //$pdf->Line(23, 48, 23, 52); //etiquetas $pdf->SetFont('Arial', '', 8); $pdf->SetXY(23, 50); $pdf->Cell(0, 0, 'Cantidad', 0, 0, L); $pdf->SetXY(40, 50); $pdf->Cell(0, 0, 'Descripcion', 0, 0, L); $pdf->SetXY(186, 50); $pdf->Cell(0, 0, 'Importe', 0, 0, L); $pdf->Line(23, 52, 200, 52); //***************** $pdf->Ln(5); //salto de linea 15 lineas $pdf->SetFont('Arial', '', 10);
$sSQL2 = "\r\n\tSELECT \r\n sum(precioVenta) as TCargos\r\nFROM\r\ncargosCuentaPaciente\r\nWHERE \r\nnumeroE = '" . $numeroE1 . "'\r\n and\r\n nCuenta='" . $nCuenta1 . "'\r\nand \r\nstatus='transaccion'\r\nand\r\nnaturaleza='C' \r\n\r\n"; $result2 = mysql_db_query($basedatos, $sSQL2); $myrow2 = mysql_fetch_array($result2); $TCargos = $myrow2['TCargos']; $TOTAL = $myrow17['sumaCargos'] - $Tabonos + $TCargos; $sSQL13 = "\r\n\tSELECT \r\n sum(iva*cantidad) as sumaiva\r\nFROM\r\ncargosCuentaPaciente\r\nWHERE \r\nnumeroE = '" . $_GET['numeroE'] . "'\r\n and\r\n nCuenta='" . $_GET['nCuenta'] . "'\r\nand\r\nstatusCargo='cargado'\r\n\r\n"; $result13 = mysql_db_query($basedatos, $sSQL13); $myrow13 = mysql_fetch_array($result13); $iva = $myrow13['sumaiva']; $pdf->SetFont('Arial', '', 12); //establece el nombre del paciente $pdf->SetXY(22, 18); $pdf->Cell(0, 0, 'Descripci�n', 0, 0, L); $pdf->SetXY(175, 18); $pdf->Cell(0, 0, 'Descuento', 0, 0, L); $pdf->Line(23, 21, 200, 21); $pdf->SetY(5); $pdf->Cell(0, 0, $numeroTransaccion, 0, 0, R); //numero de paciente $pdf->SetXY(30, 5); $pdf->Cell(0, 0, $_GET['titulo'], 0, 0, L); $pdf->SetX(1); //cambiar fecha //$myrow1['fecha1']=cambia_a_normal($myrow1['fecha1']); $fecha1 = date("d/m/Y"); /* $pdf->SetY(10); $pdf->Cell(0,0,$fecha1,0,0,R); */ //Imprimo con salto de pagina $pdf->Ln(15); //salto de linea $pdf->SetFont('Arial', '', 10);
$Y=120; //linea de abajo //$pdf->Line(2, 117, 199, 117); //echo $myrow311['observaciones']; //**********************************************SIGNATURE****** if($myrow311['seguro'] || $myrow311['statusCortesia'] || $myrow311['statusBeneficencia'] || $myrow311['observaciones']){ $pdf->SetXY(80,113); $pdf->Cell(0,0,'FIRMA ',0,0,L); $pdf->Line('93', 114, '140',114 ) ; } $pdf->SetFont('Arial','',8); $pdf->SetXY('192','90'); $pdf->Cell(0,0,"$ ".number_format($cargos[0]-$abonos[0],2),0,0,M); $pdf->SetXY('192','94'); $pdf->Cell(0,0,"$ ".number_format($ivaCargos[0]-$ivaAbonos[0],2),0,0,M); if($totalDescuento[0]>0 || $totalCortesia[0]>0 || $totalBeneficencia[0]>0){
$pdf->Cell(0, 0, 'Usuario: ' . $usuario, 0, 0, L); //numero de paciente $pdf->SetXY(300, 25); $pdf->Cell(0, 0, 'Folio: ' . $folioVenta, 0, 0, R); //cambiar fecha //$myrow1['fecha1']=cambia_a_normal($myrow1['fecha1']); $fecha1 = date("d/m/Y"); $pdf->SetY(29); $pdf->Cell(0, 0, 'Fecha: ' . $fecha1, 0, 0, R); //Imprimo con salto de pagina $pdf->Ln(25); //salto de linea $pdf->SetFont('Arial', '', 10); $pdf->SetXY(30, 37); //dibujar una linea $pdf->Line(23, 48, 200, 48); //linea divisoria //$pdf->Line(23, 48, 23, 52); //etiquetas $pdf->SetFont('Arial', '', 8); $pdf->SetXY(23, 50); $pdf->Cell(0, 0, 'Cantidad', 0, 0, L); $pdf->SetXY(40, 50); $pdf->Cell(0, 0, 'Descripcion', 0, 0, L); $pdf->SetXY(186, 50); $pdf->Cell(0, 0, 'Importe', 0, 0, L); $pdf->Line(23, 52, 200, 52); //***************** $pdf->Ln(5); //salto de linea 15 lineas $pdf->SetFont('Arial', '', 8);
//numero de paciente /* $pdf->SetXY(302,25); $pdf->Cell(0,0,'Recibo: '.$myrow311['numRecibo'],0,0,R); */ $fecha1 = date("d/m/Y"); //$pdf->SetY(40); $pdf->SetXY(302, 25); $pdf->Cell(0, 0, 'Fecha: ' . $fecha1, 0, 0, R); //cambiar fecha //$myrow1['fecha1']=cambia_a_normal($myrow1['fecha1']); //Imprimo con salto de pagina $pdf->Ln(25); //salto de linea $pdf->SetFont('Arial', '', 10); $pdf->SetXY(2, 37); //dibujar una linea $pdf->Line(2, 48, 200, 48); //linea divisoria //$pdf->Line(23, 48, 23, 52); //etiquetas $pdf->SetFont('Arial', '', 10); $pdf->SetXY(2, 50); $pdf->Cell(0, 0, 'C', 0, 0, L); $pdf->SetXY(7, 50); $pdf->Cell(0, 0, 'Descripcion', 0, 0, L); /* $pdf->SetXY(183,50); $pdf->Cell(0,0,'Importe',0,0,L); */ $pdf->Line(2, 52, 200, 52); //***************** $pdf->Ln(5); //salto de linea 15 lineas $pdf->SetFont('Arial', '', 10);