Código PHP:
} else if ($respu["naturaleza"] = 'D' && $debCP > 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"]."D".$debitoCP."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
} else if ($respu["naturaleza"] = 'C' && $creCP == 0){
//Formato cod cuenta
$ccuentaCP = $ccuentaCP.$respu["codcuenta"];
$codcuentaCP = str_pad($ccuentaCP, 8);
//Formato mit 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"]."D".$debitoCP."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";
$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".$debitoCP."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
} // Fin del if
} //Fin funcion While