OMF01SB1 - Gravação de Campos na Integração

Descrição

Este Ponto de Entrada está localizado na rotina de Importação das atualizações de preços da Montadora Massey Ferguson (OFIIMF01), sendo executado no momento da gravação de uma peça, permitindo manipular a gravação dos campos da tabela SB1.

Observações

Exemplos

Function OMF01SB1()

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

aIncSB1 = campos para integração com o mata010.

Retorno

n/a

Eventos de chamada do Ponto de Entrada

if substr(cStr,1,1) == "A" .or. substr(cStr,1,1) == "I"
dbSelectArea("SB1")
dbSetOrder(7)
if !dbSeek(xFilial("SB1")+cGrp+substr(cStr,2,25))
aAdd(aItens,{cGrp,substr(cStr,2,25),substr(cStr,27,30),val(substr(cStr,73,9)),"I"})
aIncSB1:= {}
cPecInt := GetSXENum("SB1","B1_COD")
ConfirmSX8()
aAdd(aIncSB1,{"B1_COD" , cPecInt ,Nil})
aAdd(aIncSB1,{"B1_CODITE" , substr(cStr,2,25) ,Nil})
aAdd(aIncSB1,{"B1_GRUPO" , cGrp ,Nil})
aAdd(aIncSB1,{"B1_DESC" , substr(cStr,27,30) ,Nil})
aAdd(aIncSB1,{"B1_TIPO" , "ME" ,Nil})
aAdd(aIncSB1,{"B1_UM" , "PC" ,Nil})
aAdd(aIncSB1,{"B1_IPI" , val(substr(cStr,61,4))/100 ,Nil})
aAdd(aIncSB1,{"B1_CONV" , val(substr(cStr,57,4)) ,Nil})
aAdd(aIncSB1,{"B1_POSIPI" , substr(cStr,65,8) ,Nil})
aAdd(aIncSB1,{"B1_PRV1" , val(substr(cStr,73,9)) ,Nil})
aAdd(aIncSB1,{"B1_PPIS" , val(substr(cStr,112,5)) ,Nil})
aAdd(aIncSB1,{"B1_PCOFINS" , val(substr(cStr,117,5)) ,Nil})
aAdd(aIncSB1,{"B1_LOCPAD" ,"01" ,Nil})
aAdd(aIncSB1,{"B1_ORIGEM" ,"0" ,Nil})

Variáveis

Programa Fonte

OFIIMF01