Ponto de Entrada
Descrição: | Este ponto de entrada esta localizado após a gravação do item da SB5, durante o processo de integração do arquivo de preços R&M Scania. | ||||||||||||
Localização: | Atualizações / Mov Integracao / Atualização dos Dados das Peças SCANIA (OFIIA420) | ||||||||||||
Eventos: | If ExistBlock("IA420DPG") ExecBlock("IA420DPG",.f.,.f.,{SB5->B5_FILIAL,SB5->B5_COD,SB5->B5_CODFAB}) EndIf | ||||||||||||
Programa Fonte: | OFIIA420.PRW | ||||||||||||
Função: | FS_GRAVA() | ||||||||||||
| Parâmetros: |
| ||||||||||||
| Retorno: | Não há. |
Exemplo:
Include totvs.ch
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ IA420DPG º Autor ³ MIL º Data ³ 12/01/23 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao ³ Este ponto de entrada esta localizado após º±±
±±º a gravação do item da SB5, durante o processo de integração º±±
±±º do arquivo de preços R&M Scania. º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function IA420DPG()
Local cFilial := ParamIXB[01] // SB5->B5_FILIAL
Local cCodItem := ParamIXB[02] // SB5->B5_COD
Local cCodFab := ParamIXB[03] // SB5->B5_CODFAB
MsInfo("Ponto de Entrada IA420DPG executado com sucesso!","Atenção")
Return