Perguntas PE Gravar SC6->SD2

Mais
6 anos 9 meses atrás #32233 por diegoo_martins
Pessoal, boa tarde.

Preciso de um PE que grave um campo da SC6 na SD2.

Alguém sabe qual PE devo utilizar?

Att,

Por favor Acessar ou Registrar para participar da conversa.

Mais
6 anos 9 meses atrás #32236 por diegoo_martins
Respondido por diegoo_martins no tópico PE Gravar SC6->SD2
Utiliei o PE M460FIM, porém só grava o último item.

User Function M460FIM()

Local aAreaSD2 := sd2->(GetArea())

DbSelectArea("SD2")
Reclock ("SD2",.F.)
SD2->D2_OF := SC6->C6_OF
MsUnlock ()

RestArea(aAreaSD2)

Return

Por favor Acessar ou Registrar para participar da conversa.

Mais
6 anos 9 meses atrás - 6 anos 9 meses atrás #32237 por kanaamlrr
Respondido por kanaamlrr no tópico PE Gravar SC6->SD2
Nessa caso o ideal é você realizar um While dentro do P.E. percorrendo todos os itens da SC6 e gravando no respectivo da SD2.

Ficaria mais ou menos assim:
Local cNumPV := SD2->D2_PEDIDO

SC6->(dbSetOrder(1))
SC6->(dbSeek(xFilial("SC6")+cNumPV))

SD2->(dbSetOrder(8))

While SC6->(!Eof()) .AND. xFilial("SC6")+cNumPV == SC6->(C6_FILIAL+C6_NUM)

   If SD2->(dbSeek(xFilial("SD2")+SC6->(C6_NUM+C6_ITEM)))
      Reclock ("SD2",.F.)
      SD2->D2_OF	:= SC6->C6_OF
      SD2->(MsUnlock())
   EndIf
   SC6->(dbSkip())
EndDo

Abraço!
Ultima edição: 6 anos 9 meses atrás por kanaamlrr.

Por favor Acessar ou Registrar para participar da conversa.

Mais
6 anos 9 meses atrás #32243 por diegoo_martins
Respondido por diegoo_martins no tópico PE Gravar SC6->SD2
Sucesso...
Obrigado Kanaãm.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.094 segundos
Joomla templates by a4joomla