$Codigo = $AAParametro[1]; $Ciudad =$cok["COKGlobal1"]; $Estacion=$cok["COKGlobal2"]; $FechaHoy= date('d/m/Y'); $HoraHoy = date('H:i'); ?>
Ingreso y Actualización de Lista Negra
* Campos Obligatorios
$CantPER=LeerStd($LecturaPER,"410PER","*","PERNombre LIKE '%$TT%' AND PERNombre != '' AND PERNombre != ','","PERNombre","","",""); if($CantPER == 0){ $TT = 0; ?> } ?>
$CantAR1=LeerStd($LecturaAR1,"410AR1","*","AR1Nombre LIKE '%$RR%' AND AR1Nombre != '' AND AR1Nombre != ','","AR1Nombre","","",""); if($CantAR1 == 0){ $RR = 0; ?> } ?>
$CantAR5=LeerStd($LecturaAR5,"410AR5","*","AR5Linea2 LIKE '%$PPP%' AND AR5Linea2 != ''","AR5Linea2","","",""); if($CantAR5 == 0){ $PPP = 0; $XXx= "NO"; if($RR!="" and $TT!=""){ ?>} } ?>
* Cliente (Buscar en)
Cliente Natural
Cliente Jurídico
Otro
Cliente Natural
---
$CantPER=LeerStd($LecturaPER,"410PER","*","PERNombre LIKE '%$TT%' AND PERNombre != '' AND PERNombre != ','","PERNombre","","",""); for ($y=0; $y<$CantPER; $y++){ $rowPER= mysql_fetch_array($LecturaPER); echo "
".$rowPER[PERNombre]."
"; }?>
Cliente Jurídico
---
$CantAR1=LeerStd($LecturaAR1,"410AR1","*","AR1Nombre LIKE '%$RR%' AND AR1Nombre != '' AND AR1Nombre != ','","AR1Nombre","","",""); for ($y=0; $y<$CantAR1; $y++){ $rowAR1= mysql_fetch_array($LecturaAR1); echo "
".$rowAR1[AR1Nombre]."
"; } ?>
Nombre Otro
---
$CantAR5=LeerStd($LecturaAR5,"410AR5","*","AR5Linea2 LIKE '%$PPP%' AND AR5Linea2 != ''","AR5Linea2","","",""); for ($y=0; $y<$CantAR5; $y++){ $rowAR5= mysql_fetch_array($LecturaAR5); echo "
".$rowAR5[AR5Linea2]."
"; } ?>
Nro. Documento
Nro. Tarjeta de Crédito
Motivo Lista Negra
Empresa Reporta
Tipo de Problema
---
CajaLista('AR5Lista1'); ?>
Lugar y Fecha
* Ciudad
---
$rowLIS[LISValor]"; } } ?>
* Fecha Regístro
Observación
Fuera Lista Negra
Observación