Histórico da Página

Descrição

Este ponto de entrada permite alterar os campos da tabela DTP - "Lote de Entrada" durante a gravação do lote pela rotina TMSA170 - "Lote de Entrada".

Importante:

Por se tratar de um ponto de entrada situado antes da persistência dos dados não deve-se utilizar nenhuma rotina que utilize looping em sua execução. Como por exemplo: FOR...NEXT e WHILE...ENDDO

Para que não ocorra situações que eventualmente possa bloquear o registro no banco de dados.

Exemplos

User Function TM170GRV()
Local aParam cRotina := PARAMIXB[1] //| Rotina que chamou o cadastro do lote
Local cFilOri := PARAMIXB[2] //| Filial de Cadastro do Lote
Local cLote := PARAMIXB[3] //| Numero do lote

//| Exemplo fictício de como deve-se usar o Ponto de Entrada
//| Sempre que for incluído um lote na filial M SP 01 será acrescentado o prefixo SP no número do lote
If cFilAnt == "M SP 01 "
DTP->DTP_LOTNFC := "SP" + STRZero(val(cLote),Len(DTP->DTP_LOTNFC)-2)
EndIf

Return NilReturn NIL