Ponto de Entrada

Descrição:

Este Ponto de Entrada permite a customização de campos a gravar no momento de importação de cada peça.

Localização:

 

Eventos:

aVetInsB1[4,4] := cItem
aVetInsB1[38,4] := cDescricao // aAdd(aVetInsB1,\{"SB1", "B1_DESC","C",""\}) // <<<<< 38
aVetInsB1[39,4] := 0 // TODO: aAdd(aVetInsB1,\{"SB1", "B1_IPI","N",0\}) // <<<<< 39
aVetInsB1[41,4] := nEmbalagem // aAdd(aVetInsB1,\{"SB1", "B1_QE","N",0\}) // <<<<< 41
aVetInsB1[42,4] := "" // TODO: aAdd(aVetInsB1,\{"SB1", "B1_GRUDES","C",""\}) // <<<<< 42
aVetInsB1[43,4] := "S" // TODO: aAdd(aVetInsB1,\{"SB1", "B1_ATIVO","C",""\}) // <<<<< 43
aVetInsB1[44,4] := "" // aAdd(aVetInsB1,\{"SB1", "B1_CLASSE","C",""\}) // <<<<< 44
aVetInsB1[45,4] := cClassFis // aAdd(aVetInsB1,\{"SB1", "B1_POSIPI","C",""\}) // <<<<< 45
aVetInsB1[46,4] := 0 // TODO: aAdd(aVetInsB1,\{"SB1", "B1_PICMENT","N",0\}) // <<<<< 46
aVetInsB1[48,4] := nPrePub // aAdd(aVetInsB1,\{"SB1", "B1_PRV1","N",0\}) // <<<<< 48
aVetInsB1[49,4] := "S" // TODO: aAdd(aVetInsB1,\{"SB1", "B1_PIS","C",""\}) // <<<<< 49
aVetInsB1[50,4] := "S" // TODO: aAdd(aVetInsB1,\{"SB1", "B1_COFINS","C",""\}) // <<<<< 50
aVetInsB1[53,4] := cItem // aAdd(aVetInsB1,\{"SB1", "B1_CODFAB","C",""\}) // <<<<< 53
aVetInsB1[54,4] := nPeso // aAdd(aVetInsB1,\{"SB1", "B1_PESO","N",""\}) // <<<<< 54

aVetInsB1[66,4] := cDescricao

If ExistBlock("ONNH01AV")
ExecBlock("ONNH01AV",.f.,.f.)
EndIf

INSUPDPEC(aVetInsB1, if(lExisteSB1, "R_E_C_N_O_ =" + Alltrim(STR(nRecWhere1)) ,NIL),"SB1",lExisteGrp)

INSUPDPEC(aVetInsB1, if(lExisteSB5, "R_E_C_N_O_ =" + Alltrim(STR(nRecWhere5)) ,NIL),"SB5")

ft_fskip()

End
//
ConfirmSX8()
FClose(nHnd)

Programa Fonte:

OFINNH01.PRW

Função:

 

Retorno:

N/A

Parâmetro:N/A

 

Exemplo:

User Function ONNH01AV()
Local nCntFor
//
DBSelectArea("SBZ")
DBSetOrder(1)
for nCntFor := 1 to Len(aFilis)
if !DBSeek(aFilis[nCntFor,1] + cPartNumber)
reclock("SBZ",.t.)
SBZ->BZ_FILIAL = aFilis[nCntFor,1]
SBZ->BZ_COD = cPartNumber
msunlock()
endif
next

return