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[66,4] := cDescricao If ExistBlock("ONNH01AV") 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 |
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