Perguntas Field Service - Abertura OS

While !Eof() .And. SCK->CK_FILIAL = xFilial("SCK") .And. SCK->CK_NUM == _cNumPed

For nI := 1 To SCK->CK_QTDVEN

If RecLock("ABI",.T.)
Replace ABI_PROJET With SCK->CK_NUM,;
ABI_ITEM With SCK->CK_ITEM, ABI_CODPRO With SCK->CK_PRODUTO,;
ABI_FILIAL With SCK->CK_FILIAL, ABI_ETAPA With Str(nI),;
ABI_DESCRI With 'AAAA', ABI_CODPRB With 'INST',;
ABI_INIPRV With dDATABASE, ABI_FIMPRV With dDATABASE,;
ABI_SITATU With '1'
MsUnLock()
Endif

Next nI

SCK->(dbSkip(1))


ENDDO

While !Eof() .And. SCK->CK_FILIAL = xFilial("SCK") .And. SCK->CK_NUM == _cNumPed

cItem := '01'
For nI := 1 To SCK->CK_QTDVEN

If RecLock("ABI",.T.)
Replace ABI_PROJET With SCK->CK_NUM,;
ABI_ITEM With cItem, ABI_CODPRO With SCK->CK_PRODUTO,;
ABI_FILIAL With SCK->CK_FILIAL, ABI_ETAPA With Str(nI),;
ABI_DESCRI With 'AAAA', ABI_CODPRB With 'INST',;
ABI_INIPRV With dDATABASE, ABI_FIMPRV With dDATABASE,;
ABI_SITATU With '1'
MsUnLock()
Endif

cItem := Soma1(cItem,2)

Next nI

SCK->(dbSkip(1))


ENDDO

Blz Meu Querido que bom que deu certo.

Depois coloca uma foto sua ai pra gente te conhecer melhor e indica o site aos amigos ok.

Abraços.