- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Cópia de pedido de venda
×
Linguagem de Programação ADVPL
Perguntas Cópia de pedido de venda
- sarraipa
- Autor do Tópico
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 232
- Obrigados Recebidos: 1
10 anos 7 meses atrás #21854
por sarraipa
Cópia de pedido de venda foi criado por sarraipa
alguém sabe como faço para copiar uma campo personalizado de um pedido de venda para outro através da rotina de cópia de venda. mesmo que eu tente acertar vai banco de dados o novo pedido não tem histórico do pedido que ele foi copiado.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 7 meses atrás #21856
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Cópia de pedido de venda
User Function MT410CPY()
Local aAreaSC5 := {}
Begin Sequence
aAreaSC5 := SC5->(GetArea())
If SC5->(FieldPos("C5_DYLIBER"))>0
M->C5_DYLIBER := Space(TamSx3("C5_DYLIBER")[1])
M->C5_BLQ := Space(TamSx3("C5_BLQ")[1])
Endif
If SC5->(FieldPos("C5_DYNVPIC"))>0
M->C5_DYNVPIC := 0
M->C5_DYDTPIC := CtoD('')
M->C5_DYHRPIC := Space(TamSx3("C5_DYHRPIC")[1])
M->C5_DYUSPIC := Space(TamSx3("C5_DYUSPIC")[1])
EndIf
If SC5->(FieldPos("C5_DYDTEXP"))>0
M->C5_DYDTEXP := CtoD('')
M->C5_DYHREXP := Space(TamSx3("C5_DYHREXP")[1])
M->C5_DYUSEXP := Space(TamSx3("C5_DYUSEXP")[1])
EndIf
M->C5_ESPECI1 := Space(TamSx3("C5_ESPECI1")[1])
M->C5_VOLUME1 := 0
M->C5_PESOL := 0
M->C5_PBRUTO := 0
RestArea(aAreaSC5)
End Sequence
Return()
Local aAreaSC5 := {}
Begin Sequence
aAreaSC5 := SC5->(GetArea())
If SC5->(FieldPos("C5_DYLIBER"))>0
M->C5_DYLIBER := Space(TamSx3("C5_DYLIBER")[1])
M->C5_BLQ := Space(TamSx3("C5_BLQ")[1])
Endif
If SC5->(FieldPos("C5_DYNVPIC"))>0
M->C5_DYNVPIC := 0
M->C5_DYDTPIC := CtoD('')
M->C5_DYHRPIC := Space(TamSx3("C5_DYHRPIC")[1])
M->C5_DYUSPIC := Space(TamSx3("C5_DYUSPIC")[1])
EndIf
If SC5->(FieldPos("C5_DYDTEXP"))>0
M->C5_DYDTEXP := CtoD('')
M->C5_DYHREXP := Space(TamSx3("C5_DYHREXP")[1])
M->C5_DYUSEXP := Space(TamSx3("C5_DYUSEXP")[1])
EndIf
M->C5_ESPECI1 := Space(TamSx3("C5_ESPECI1")[1])
M->C5_VOLUME1 := 0
M->C5_PESOL := 0
M->C5_PBRUTO := 0
RestArea(aAreaSC5)
End Sequence
Return()
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- sarraipa
- Autor do Tópico
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 232
- Obrigados Recebidos: 1
10 anos 7 meses atrás #21861
por sarraipa
Respondido por sarraipa no tópico Cópia de pedido de venda
Luiz obrigado pela ajuda, não entendo muita coisa de programação.
mudeio o código desta forma funciona não sei se ficar certo.
User Function MT410CPY()
Local aAreaSC5 := {}
Begin Sequence
aAreaSC5 := SC5->(GetArea())
SC5->C5_XPROTWE := Space(TamSx3("C5_XPROTWE")[1])
RestArea(aAreaSC5)
End Sequence
Return()
mudeio o código desta forma funciona não sei se ficar certo.
User Function MT410CPY()
Local aAreaSC5 := {}
Begin Sequence
aAreaSC5 := SC5->(GetArea())
SC5->C5_XPROTWE := Space(TamSx3("C5_XPROTWE")[1])
RestArea(aAreaSC5)
End Sequence
Return()
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 7 meses atrás #21890
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Cópia de pedido de venda
Muda para Variavel:
M->C5_XPROTWE := Space(TamSx3("C5_XPROTWE")[1])
M->C5_XPROTWE := Space(TamSx3("C5_XPROTWE")[1])
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Cópia de pedido de venda
Tempo para a criação da página:0.097 segundos