- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Pontos de Entrada
- PE Gravar SC6->SD2
Perguntas PE Gravar SC6->SD2
- diegoo_martins
- Autor do Tópico
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 175
- Obrigados Recebidos: 0
7 anos 5 meses atrás #32233
por diegoo_martins
PE Gravar SC6->SD2 foi criado 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,
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.
- diegoo_martins
- Autor do Tópico
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 175
- Obrigados Recebidos: 0
7 anos 5 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
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.
- kanaamlrr
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
7 anos 5 meses atrás - 7 anos 5 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:
Abraço!
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())
EndDoAbraço!
Ultima edição: 7 anos 5 meses atrás por kanaamlrr.
Por favor Acessar ou Registrar para participar da conversa.
- diegoo_martins
- Autor do Tópico
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 175
- Obrigados Recebidos: 0
7 anos 4 meses atrás #32243
por diegoo_martins
Respondido por diegoo_martins no tópico PE Gravar SC6->SD2
Sucesso...
Obrigado Kanaãm.
Obrigado Kanaãm.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Pontos de Entrada
- PE Gravar SC6->SD2
Tempo para a criação da página:0.103 segundos