- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Pontos de Entrada
- Ponto de entrada <Discriminacao>
Perguntas Ponto de entrada <Discriminacao>
- sarraipa
- Autor do Tópico
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 232
- Obrigados Recebidos: 1
7 anos 9 meses atrás #31749
por sarraipa
Ponto de entrada <Discriminacao> foi criado por sarraipa
Boa tarde,
Preciso incluir uma informação no XML da nota fiscal de serviço na tag <Discriminacao>
Sei que por padrão o sistema pega do campo C5_memnota, gostaria de saber qual ponto de entrada posso usar para isso ou qual fonte devo customizar.
Tentei os:
nfsexmlenv
NFSEXml002
Preciso incluir uma informação no XML da nota fiscal de serviço na tag <Discriminacao>
Sei que por padrão o sistema pega do campo C5_memnota, gostaria de saber qual ponto de entrada posso usar para isso ou qual fonte devo customizar.
Tentei os:
nfsexmlenv
NFSEXml002
Por favor Acessar ou Registrar para participar da conversa.
- admin
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 297
- Obrigados Recebidos: 21
7 anos 9 meses atrás #31750
por admin
Respondido por admin no tópico Ponto de entrada <Discriminacao>
Segue um exemplo
tdn.totvs.com/pages/releaseview.action?pageId=6077099
tdn.totvs.com/pages/releaseview.action?pageId=6077099
#include "rwmake.ch" // incluido pelo assistente de conversao do AP5 IDE em 19/11/99
User Function MTDESCRNFE() // incluido pelo assistente de conversao do AP5 IDE em 19/11/99
SetPrvt("xPedido")
Private DESCR:=""
dbSelectArea("SD2")
dbSetOrder(3)
dbSeek(xFilial()+SF3->F3_NFISCAL+SF3->F3_SERIE+SF3->F3_CLIEFOR+SF3->F3_LOJA)
xPedido:= SD2->D2_PEDIDO
dbSelectArea("SE1")
dbSetOrder(2)
dbSeek(xFilial()+SF3->F3_CLIEFOR+SF3->F3_LOJA+SF3->F3_SERIE+SF3->F3_NFISCAL)
xVenc:= SE1->E1_VENCREA
dbSelectArea("SC5") // * Pedidos de Venda
dbSetOrder(1)
dbSeek(xFilial()+xPedido)
IF(EMPTY(SC5->C5_MENNOTA))
DESCR:="SERVIÇOS DE CONTABILIDADE PRESTADOS NO MÊS DE " + upper(mesextenso(SF3->F3_EMISSAO)) +" DE "+ strzero(year(SF3->F3_EMISSAO),4) +"|"
ELSE
IF !EMPTY(SC5->C5_MENNOTA)
DESCR := ALLTRIM(SC5->C5_MENNOTA)
ENDIF
IF !EMPTY(SC5->C5_MENS1)
DESCR := DESCR +"|" + ALLTRIM(SC5->C5_MENS1)
ENDIF
IF !EMPTY(SC5->C5_MENS2)
DESCR := DESCR +"|" + ALLTRIM(SC5->C5_MENS2)
ENDIF
IF !EMPTY(SC5->C5_MENS3)
DESCR := DESCR +"|" + ALLTRIM(SC5->C5_MENS3)
ENDIF
ENDIF
IF(!EMPTY(SC5->C5_MENS4).OR.!EMPTY(SC5->C5_MENS5).OR.!EMPTY(SC5->C5_MENS6).OR.!EMPTY(SC5->C5_MENS7))
IF !EMPTY(SC5->C5_MENS4)
DESCR := DESCR +"|" + ALLTRIM(SC5->C5_MENS4)
ENDIF
IF !EMPTY(SC5->C5_MENS5)
DESCR := DESCR +"|" + ALLTRIM(SC5->C5_MENS5)
ENDIF
IF !EMPTY(SC5->C5_MENS6)
DESCR := DESCR +"|" + ALLTRIM(SC5->C5_MENS6)
ENDIF
IF !EMPTY(SC5->C5_MENS7)
DESCR := DESCR +"|" + ALLTRIM(SC5->C5_MENS7)
ENDIF
ENDIF
DESCR:= DESCR + "|" + "Vencimento: " + dtoc(xVenc)
Return (SUBSTR(ALLTRIM(DESCR),1,999))
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Pontos de Entrada
- Ponto de entrada <Discriminacao>
Tempo para a criação da página:0.086 segundos