Función
ActualizaCombPendiente
Para cada matricula indicada en el cuadro que memoriza las planillas
Excel de combustibles que han sido
actualizadas:
LeePlanilla3
Si IncluirNotas
Hace CompletaImportacion (incluye en parcelapgar_aux líneas definidas en memo1
Función LeePlanilla3
Busca el archivo
[ matricula].xls o [matricula].xlsx
Si no encuentra avisa
'No pude abrir el
archivo '+arquivo+' no podré actualizar el kilometraje
Abre el Excel y va
hasta la última hoja.
Recorre las filas
(líneas) de 1 a 32
Desconsidera mientras
no sobrepasa la fila que tiene en la columna A el texto FECHA
Desde ahí hasta que llega a la fila que tiene en la column a A el texto TOTAL LITROS
Si la columna IV no contiene un
Nro (número del código de la compra en
notacompra )
Si ejecuta
correctamente la función Incluye
,
registra en
la columna IV el
código de la nota de compra incluida
busca kilometraje de ese vehiculo en la tabla odometro m si es MAYOR QUE
km nota
si PermiteTomarKmtMenor, cuestiona si debe hacerlo
Pide confirmación registrado -> 8888
en la excel constan -> 9999
Actualiza asimismo ?
Si actualizó
Avisa Actualizado con
8888
Si no Avisa No he podido actualizar !!!
Función Incluye
Si E* > ‘’
Obtiene próximo nro de código de notacompra
en codnota
|
Dato
|
Celda
|
calculo
|
Observaciones
|
|
placa
|
A1
|
|
La matrícula que considera es
la informada en esta celda, independientemente del nombre de la planilla Excel
|
|
Fornecedor
|
D*
|
|
|
|
Data
|
A*
|
|
|
|
Doc
|
E*
|
|
|
|
Lts
|
C*
|
|
|
|
unt
|
G*
|
|
|
|
vlr
|
|
lts
X unt
|
|
|
Km
|
B*
|
|
|
|
Hora
|
F*
|
|
|
Incluye
un línea en memo1 con
codnota,0,9,
vlr,vlr,data,data,1,doc,placa,km,lts,unt,unt,0,lts,’S’,fornecedor,hora
Función CompletaImportacion
Si hay lineas en
memo1
REPLACE INTO
parcelapagar_aux
nota,
contrato,numero, valor, saldo, vencimento,
emissao, moeda, documento,
placa,km,qtde,unitario,unitarioBanco,distancia,litros,cheio,fantasia,cidade
VALUES Memo1.lines.text
Atualiza_fornecedor_e_movil
Registra_notas_e_contas
Función Atualiza_fornecedor_e_movil
Une columnas de proveedor (P) y cuotas (C) generadas atraves
de loc campos P.apelido y C.fantasia
Las lineas con P.nome "nulo" indican que no existe
un registro en proveedores con C.fantasia
en P.apelido
( si el proveedor indicado en el Excel no existe en
proveedores buscando en la columna apelido )
Incluye un registro para cada uno de estos casos colocando
en dato (C.fantasia) en los campos apelido y nome, y en endereco graba la marca
##
Función registra_notas_e_contas
Lee código de Gasoil
de
[Produtos]
diesel2=301651
( diesel2=301652 diesel2=301653 )
Actualiza notas de compra
(codigo, documento,
valor, moeda, data, fornecedor,tipo,cnpj,kilometragem,desccli1,notafatura,destino)
nota, documento, valor, moeda, emissao, fornecedor, ''CTO'',placa,km,qtde,-1,movil
Actualiza itens de compra
(nota,item,produto,quantidade,unitario,subtotal,moeda,destino)
nota, 1, '+ inttostr(gnCodigoGasoil) , litros, unitarioBanco,valor,1,movil
Actualiza parcelas a pagar
nota, contrato, documento, valor, moeda, saldo, paga, emissao,
vencimento, fornecedor
nota, contrato, documento, valor, moeda, saldo,
paga,emissao, vencimento, fornecedor
Avisa He incluido 999 registros de abastecimiento
Función LeePlanilla _______
crear nueva ________________________________________
Busca el archivo
[matricula].xls o [matricula].xlsx
Si no encuentra avisa
No
pude abrir el archivo NTP9999
no podré actualizar el kilometraje
Abre el Excel y IR
hasta la hoja del mes INDICADO
Recorre las filas
(líneas) de 1 a 32
Desconsidera mientras
no sobrepasa la fila que tiene en la columna A el texto FECHA
Desde ahí hasta que llega a la fila que tiene en la column a A el texto TOTAL LITROS
Si la columna IV no contiene un Nro
(número del código de la compra en notacompra )
Si ejecuta
correctamente la función Incluye
,
registra en
la columna IV el
código de la nota de compra incluida
