erp - apuntes para soporte

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