Viewing file:  ajusta_datas.php (5.13 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
<?php
die("Ja feito...");
$arquivos = array('00073617.CRT','00073618.CRT','00073622.CRT','00073623.CRT','00073624.CRT','00073625.CRT','00073626.CRT','00073701.CRT','00073702.CRT','00073703.CRT','00073709.CRT','00073710.CRT','00073713.CRT','00073714.CRT','00073715.CRT','00073716.CRT','00073717.CRT','00073720.CRT','00073721.CRT','00073724.CRT');
for ($i=0;$i<count($arquivos);$i++) {
$fp = fopen($arquivos[$i],'r');
$linha = fgets($fp);
$ID_Registro = intval(substr($linha,0,2));
//echo "I=$i, Arquivo=$arquivos[$i], IDR=$ID_Registro<br />";
if ($ID_Registro==2) {
while (!feof($fp)) {
$linha = fgets($fp);
$num_contrato = intval(substr($linha,50,5));
$motivo = substr($linha,318,2);
if ($motivo == "B3") {
$data_pagamento = substr($linha,328,8);
$ano = substr($data_pagamento,0,4);
$mes = substr($data_pagamento,4,2);
$dia = substr($data_pagamento,6,2);
$data_pagamento = "$ano-$mes-$dia";
$sql = " UPDATE irp_servicos_boletos "
. " SET SVB_DataPagamento = '$data_pagamento' "
. " WHERE SVB_RowID = '$num_contrato';";
echo $sql."<br />";
//echo "$num_contrato, ";
}
}
}
fclose($fp);
}
/*
Dados dos arquivos de retorno:
ID=5473, DataPagto=2009-06-16
ID=5193, DataPagto=2009-06-16
ID=5204, DataPagto=2009-06-17
ID=5326, DataPagto=2009-06-19
ID=5057, DataPagto=2009-06-22
ID=5525, DataPagto=2009-06-22
ID=5034, DataPagto=2009-06-22
ID=5108, DataPagto=2009-06-23
ID=5263, DataPagto=2009-06-23
ID=5100, DataPagto=2009-06-23
ID=5322, DataPagto=2009-06-24
ID=5482, DataPagto=2009-06-25
ID=5097, DataPagto=2009-06-30
ID=5082, DataPagto=2009-07-01
ID=5494, DataPagto=2009-07-02
ID=5200, DataPagto=2009-07-02
ID=5123, DataPagto=2009-07-08
ID=5423, DataPagto=2009-07-09
ID=5475, DataPagto=2009-07-10
ID=5380, DataPagto=2009-07-10
ID=5191, DataPagto=2009-07-13
ID=5381, DataPagto=2009-07-13
ID=5066, DataPagto=2009-07-13
ID=5456, DataPagto=2009-07-13
ID=5368, DataPagto=2009-07-13
ID=5419, DataPagto=2009-07-13
ID=5414, DataPagto=2009-07-13
ID=5377, DataPagto=2009-07-13
ID=5489, DataPagto=2009-07-13
ID=5454, DataPagto=2009-07-14
ID=5515, DataPagto=2009-07-14
ID=5514, DataPagto=2009-07-14
ID=5159, DataPagto=2009-07-14
ID=5342, DataPagto=2009-07-14
ID=5450, DataPagto=2009-07-14
ID=5163, DataPagto=2009-07-14
ID=5194, DataPagto=2009-07-15
ID=5400, DataPagto=2009-07-15
ID=5403, DataPagto=2009-07-15
ID=5050, DataPagto=2009-07-15
ID=5017, DataPagto=2009-07-15
ID=5155, DataPagto=2009-07-15
ID=5520, DataPagto=2009-07-15
ID=5157, DataPagto=2009-07-15
ID=5522, DataPagto=2009-07-15
ID=5161, DataPagto=2009-07-15
ID=5149, DataPagto=2009-07-15
ID=5345, DataPagto=2009-07-15
ID=5424, DataPagto=2009-07-15
ID=5049, DataPagto=2009-07-15
ID=5153, DataPagto=2009-07-15
ID=5420, DataPagto=2009-07-15
ID=5469, DataPagto=2009-07-15
ID=5391, DataPagto=2009-07-15
ID=5026, DataPagto=2009-07-15
ID=5125, DataPagto=2009-07-15
ID=5065, DataPagto=2009-07-15
ID=5158, DataPagto=2009-07-15
ID=5298, DataPagto=2009-07-15
ID=5252, DataPagto=2009-07-15
ID=5032, DataPagto=2009-07-15
ID=5372, DataPagto=2009-07-15
ID=5352, DataPagto=2009-07-15
ID=5186, DataPagto=2009-07-15
ID=5278, DataPagto=2009-07-15
ID=5314, DataPagto=2009-07-15
ID=5474, DataPagto=2009-07-15
ID=5360, DataPagto=2009-07-15
ID=5346, DataPagto=2009-07-15
ID=5307, DataPagto=2009-07-16
ID=5277, DataPagto=2009-07-16
ID=5240, DataPagto=2009-07-16
ID=5404, DataPagto=2009-07-17
ID=5536, DataPagto=2009-07-20
ID=5246, DataPagto=2009-07-23
Dados do banco de dados:
"SVB_RowID";"SVB_DataPagamento"
"5.034";"20/9/2006"
"5.057";"20/9/2006"
"5.097";"20/9/2006"
"5.100";"20/9/2006"
"5.108";"20/9/2006"
"5.193";"20/9/2006"
"5.204";"20/9/2006"
"5.263";"20/9/2006"
"5.322";"20/9/2006"
"5.326";"20/9/2006"
"5.473";"20/9/2006"
"5.482";"20/9/2006"
"5.525";"20/9/2006"
"5.017";"20/9/2007"
"5.026";"20/9/2007"
"5.032";"20/9/2007"
"5.049";"20/9/2007"
"5.050";"20/9/2007"
"5.065";"20/9/2007"
"5.066";"20/9/2007"
"5.082";"20/9/2007"
"5.123";"20/9/2007"
"5.125";"20/9/2007"
"5.149";"20/9/2007"
"5.153";"20/9/2007"
"5.155";"20/9/2007"
"5.157";"20/9/2007"
"5.158";"20/9/2007"
"5.159";"20/9/2007"
"5.161";"20/9/2007"
"5.163";"20/9/2007"
"5.186";"20/9/2007"
"5.191";"20/9/2007"
"5.194";"20/9/2007"
"5.200";"20/9/2007"
"5.240";"20/9/2007"
"5.246";"20/9/2007"
"5.252";"20/9/2007"
"5.277";"20/9/2007"
"5.278";"20/9/2007"
"5.298";"20/9/2007"
"5.307";"20/9/2007"
"5.314";"20/9/2007"
"5.342";"20/9/2007"
"5.345";"20/9/2007"
"5.346";"20/9/2007"
"5.352";"20/9/2007"
"5.360";"20/9/2007"
"5.368";"20/9/2007"
"5.372";"20/9/2007"
"5.377";"20/9/2007"
"5.380";"20/9/2007"
"5.381";"20/9/2007"
"5.391";"20/9/2007"
"5.400";"20/9/2007"
"5.403";"20/9/2007"
"5.404";"20/9/2007"
"5.414";"20/9/2007"
"5.419";"20/9/2007"
"5.420";"20/9/2007"
"5.423";"20/9/2007"
"5.424";"20/9/2007"
"5.450";"20/9/2007"
"5.454";"20/9/2007"
"5.456";"20/9/2007"
"5.469";"20/9/2007"
"5.474";"20/9/2007"
"5.475";"20/9/2007"
"5.489";"20/9/2007"
"5.494";"20/9/2007"
"5.514";"20/9/2007"
"5.515";"20/9/2007"
"5.520";"20/9/2007"
"5.522";"20/9/2007"
"5.536";"20/9/2007"
*/
?>
|