- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Gravar campos customizados SC5 na SE1 (SF2460I)
×
Linguagem de Programação ADVPL
Perguntas Gravar campos customizados SC5 na SE1 (SF2460I)
- flaviodocarmo
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 18
- Obrigados Recebidos: 0
9 anos 8 meses atrás #27554
por flaviodocarmo
Gravar campos customizados SC5 na SE1 (SF2460I) foi criado por flaviodocarmo
Boa Tarde, Colegas!
Desenvolvi este programa para gravar um campo customizado da SC5 na SE1:
User Function SF2460I
Private aAreas1 := GetArea()
Private cPed
Private cTipo
dbselectarea("SD2")
dbsetorder(3)
dbseek(xfilial("SD2")+SF2->F2_DOC+SF2->F2_SERIE)
cPed := alltrim(SD2->D2_PEDIDO)
dbSelectArea("SC5")
dbSetOrder(1)
dbSeek(xFilial("SC5")+cPed)
cTipo := alltrim(SC5->C5_TIPOPRO)
If RecLock("SE1",.F.)
Replace SE1->E1_TIPOPRO With cTipo
msUnLock()
Endif
RestArea(aAreas1)
Return()
O problema que ele funciona para pagamento a vista. Mas quando é uma condição de pagamento com muitas parcelas (20x ou 24 x) nao funciona. Alguma dica?
Flavio do Carmo Oliveira
31-93516397
Desenvolvi este programa para gravar um campo customizado da SC5 na SE1:
User Function SF2460I
Private aAreas1 := GetArea()
Private cPed
Private cTipo
dbselectarea("SD2")
dbsetorder(3)
dbseek(xfilial("SD2")+SF2->F2_DOC+SF2->F2_SERIE)
cPed := alltrim(SD2->D2_PEDIDO)
dbSelectArea("SC5")
dbSetOrder(1)
dbSeek(xFilial("SC5")+cPed)
cTipo := alltrim(SC5->C5_TIPOPRO)
If RecLock("SE1",.F.)
Replace SE1->E1_TIPOPRO With cTipo
msUnLock()
Endif
RestArea(aAreas1)
Return()
O problema que ele funciona para pagamento a vista. Mas quando é uma condição de pagamento com muitas parcelas (20x ou 24 x) nao funciona. Alguma dica?
Flavio do Carmo Oliveira
31-93516397
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
9 anos 8 meses atrás #27555
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 Gravar campos customizados SC5 na SE1 (SF2460I)
User Function SF2460I
Private aAreas1 := GetArea()
Private cPed
Private cTipo
dbselectarea("SD2")
dbsetorder(3)
dbseek(xfilial("SD2")+SF2->F2_DOC+SF2->F2_SERIE)
cPed := alltrim(SD2->D2_PEDIDO)
dbSelectArea("SC5")
dbSetOrder(1)
dbSeek(xFilial("SC5")+cPed)
cTipo := alltrim(SC5->C5_TIPOPRO)
If SE1->(dbSetOrder(1), dbSeek(xFilial("SE1")+SF2->F2_SERIE+SF2->F2_DOC))
While SE1->(!Eof()) .And. SE1->E1_FILIAL == xFilial("SE1") .And. SE1->E1_PREFIXO == SF2->F2_SERIE .And. SE1->E1_NUM == SF2->F2_DOC .And. SE1->E1_CLIENTE == SF2->F2_CLIENTE .And. SE1->E1_LOJA == SF2->F2_LOJA
If RecLock("SE1")
SE1->E1_TIPOPRO := cTipo
SE1->(MsUnlock())
Endif
SE1->(dbSkip(1))
Enddo
Endif
RestArea(aAreas1)
Return()
Private aAreas1 := GetArea()
Private cPed
Private cTipo
dbselectarea("SD2")
dbsetorder(3)
dbseek(xfilial("SD2")+SF2->F2_DOC+SF2->F2_SERIE)
cPed := alltrim(SD2->D2_PEDIDO)
dbSelectArea("SC5")
dbSetOrder(1)
dbSeek(xFilial("SC5")+cPed)
cTipo := alltrim(SC5->C5_TIPOPRO)
If SE1->(dbSetOrder(1), dbSeek(xFilial("SE1")+SF2->F2_SERIE+SF2->F2_DOC))
While SE1->(!Eof()) .And. SE1->E1_FILIAL == xFilial("SE1") .And. SE1->E1_PREFIXO == SF2->F2_SERIE .And. SE1->E1_NUM == SF2->F2_DOC .And. SE1->E1_CLIENTE == SF2->F2_CLIENTE .And. SE1->E1_LOJA == SF2->F2_LOJA
If RecLock("SE1")
SE1->E1_TIPOPRO := cTipo
SE1->(MsUnlock())
Endif
SE1->(dbSkip(1))
Enddo
Endif
RestArea(aAreas1)
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.
- flaviodocarmo
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 18
- Obrigados Recebidos: 0
9 anos 8 meses atrás #27564
por flaviodocarmo
Respondido por flaviodocarmo no tópico Gravar campos customizados SC5 na SE1 (SF2460I)
Obrigado valew msm Luiz
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Gravar campos customizados SC5 na SE1 (SF2460I)
Tempo para a criação da página:0.128 segundos