PARTE 1
Código PHP:
/////////////////////////// Select Plano CP
$sql=mysql_query("select s.empresa,t.cpte,e.destino,e.tipodestino,
c.codcuenta,c.nitcontab,c.indcucontab,c.credito,c.debito,c.detacontab,c.vrbase,
d.cheque,d.indcu,d.planilla,d.anolapso,d.meslapso,d.tipo,d.anodoc,d.mesdoc,d.diadoc,d.numdoc,
b.nit,b.descripbenef,b.tipobenef,b.direccion,b.ciudad,b.departamento,b.telefono,b.tiponit
from documentocp d,contabilizacioncp c,usuario s,cu u,tipodocum t,beneficiario b, cuentas e
where c.numdoc = d.numdoc && d.descripuser = s.descripuser && c.codcuenta = e.codcuenta &&
d.tipo = t.tipo && d.planilla = t.planilla && u.indcu = d.indcu && t.tipo = 'CP' && c.nitcontab = b.nit &&
d.anodoc between $anodoc1 && $anodoc2 && d.mesdoc between $mesdoc1 && $mesdoc2 && d.diadoc between $diadoc1 && $diadoc2");
while ($respu = mysql_fetch_array($sql)) {
// Inicia variables
$debCP = ""; $creCP = "";
$debCP = $debCP.$respu["debito"]; $creCP = $creCP.$respu["credito"];
$baseCP = ""; $vrbaseCP = ""; $detaCP = ""; $detacontabCP = "";
$creditoCP = ""; $cCP = ""; $debitoCP = ""; $dCP = ""; $codcuentaCP = ""; $ccuentaCP = ""; $ncontabCP = ""; $nitcontabCP = "";
$nitCP = ""; $ntCP = ""; $numdCP = ""; $numdocCP = ""; $destCP = ""; $destinoCP = ""; $dbenefCP = ""; $detabenefCP = "";
$direccionCP = ""; $direccionbenefCP = ""; $ciudadCP = ""; $ciudadbenefCP = ""; $departamentoCP = ""; $departamentobenefCP = "";
$telefonoCP = ""; $telefonobenefCP = ""; $espacioCP = ""; $espacioblancoCP = ""; $chequeCP = ""; $nchequeCP = "";
$empleado = ""; $proveedor = ""; $cliente = ""; $acreedor = ""; $exterior = ""; $interno = ""; $socio = ""; $otros = "";
if ($respu["tipobenef"] = 'EMPLEADO'){
$empleado = 1; $proveedor = 0; $cliente = 0; $acreedor = 0; $exterior = 0; $interno = 0; $socio = 0; $otros = 0;
} else if($respu["tipobenef"] = 'PROVEEDOR'){
$empleado = 0; $proveedor = 1; $cliente = 0; $acreedor = 0; $exterior = 0; $interno = 0; $socio = 0; $otros = 0;
} else if($respu["tipobenef"] = 'CLIENTE'){
$empleado = 0; $proveedor = 0; $cliente = 1; $acreedor = 0; $exterior = 0; $interno = 0; $socio = 0; $otros = 0;
} else if($respu["tipobenef"] = 'ACREEDOR'){
$empleado = 0; $proveedor = 0; $cliente = 0; $acreedor = 1; $exterior = 0; $interno = 0; $socio = 0; $otros = 0;
} else if($respu["tipobenef"] = 'EXTERIOR'){
$empleado = 0; $proveedor = 0; $cliente = 0; $acreedor = 0; $exterior = 1; $interno = 0; $socio = 0; $otros = 0;
} else if($respu["tipobenef"] = 'INTERNO'){
$empleado = 0; $proveedor = 0; $cliente = 0; $acreedor = 0; $exterior = 0; $interno = 1; $socio = 0; $otros = 0;
} else if($respu["tipobenef"] = 'SOCIO'){
$empleado = 0; $proveedor = 0; $cliente = 0; $acreedor = 0; $exterior = 0; $interno = 0; $socio = 1; $otros = 0;
} else if($respu["tipobenef"] = 'OTROS'){
$empleado = 0; $proveedor = 0; $cliente = 0; $acreedor = 0; $exterior = 0; $interno = 0; $socio = 0; $otros = 1;
}// Fin del if
if ($respu["naturaleza"] = 'C' && $creCP > 0 ){
//Formato cod cuenta
$ccuentaCP = $ccuentaCP.$respu["codcuenta"];
$codcuentaCP = str_pad($ccuentaCP, 8);
//Formato nit beneficiario contabilizacion
$ncontabCP = $ncontabCP.$respu["nitcontab"];
$nitcontabCP = str_pad($ncontabCP, 9);
//Formato numero documento
$numdCP = $numdCP.$respu["numdoc"];
$numdocCP = str_pad($numdCP, 5, "0", STR_PAD_LEFT);
//Formato transacion
$detaCP = $detaCP.$respu["detacontab"];
$detacontabCP = str_pad($detaCP, 80);
//Formato destino
$destCP = $destCP.$respu["destino"];
$destinoCP = str_pad($destCP, 8);
//Formato # cheque
$nchequeCP = $nchequeCP.$respu["cheque"];
$chequeCP = str_pad($nchequeCP, 4);
//Formato base
$baseCP = $baseCP.$respu["vrbase"];
$vrbaseCP = str_pad($baseCP, 11, "0", STR_PAD_LEFT);
//Formato valor credito
$cCP = $cCP.$respu["credito"];
$creditoCP = str_pad($cCP, 11, "0", STR_PAD_LEFT);
//Formato valor debito
$dCP = $dCP.$respu["debito"];
$debitoCP = str_pad($dCP, 11, "0", STR_PAD_LEFT);
//Formato nit beneficiario contabilizacion
$ntCP = $ntCP.$respu["nitcontab"];
$nitCP = str_pad($ntCP, 11);
//Formato nombre beneficiario
$dbenefCP = $dbenefCP.$respu["descripbenef"];
$detabenefCP = str_pad($dbenefCP, 40);
//Formato direccion beneficiario
$direccionbenefCP = $direccionbenefCP.$respu["direccion"];
$direccionCP = str_pad($direccionbenefCP, 25);
//Formato ciudad beneficiario
$ciudadbenefCP = $ciudadbenefCP.$respu["ciudad"];
$ciudadCP = str_pad($ciudadbenefCP, 12);
//Formato departamento beneficiario
$departamentobenefCP = $departamentobenefCP.$respu["departamento"];
$departamentoCP = str_pad($departamentobenefCP, 12);
//Formato telefono beneficiario
$telefonobenefCP = $telefonobenefCP.$respu["telefono"];
$telefonoCP = str_pad($telefonobenefCP, 15);
//Formato Espacio
$espacioCP = str_pad($espacioblancoCP, 320);
$excel = $excel.$codcuentaCP.$nitcontabCP.$respu["indcucontab"].$respu["anolapso"].$respu["meslapso"].
$respu["empresa"].$respu["indcu"].$respu["cpte"].$respu["planilla"]."0000".$respu["tipo"].$numdocCP.
$respu["anodoc"].$respu["mesdoc"].$respu["diadoc"]."C".$creditoCP."00"."+".$detacontabCP.$destinoCP.
"CH".$chequeCP.$vrbaseCP."+"."000000000"."+"." "."00000"."00"."000000"."000".$nitCP.$detabenefCP.
" "." "." ".$respu["tiponit"].$direccionCP.$ciudadCP.$departamentoCP." ".$telefonoCP." ".
$socio.$empleado.$cliente.$proveedor.$acreedor.$exterior.$interno.$otros." "." "." "." "." "." "." ".
" "." "." "." ".
" "." "." "." "." "." "."00000000000"."+".
" "." "."00000000".$espacioCP.$respu["tipodestino"]."\n";
//socio // empreado // cliente // proveedor // acreedor // exterior(Siempre cero) // interno // otros