- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Discriminação dos Serviços - NFe
×
Linguagem de Programação ADVPL
Perguntas Discriminação dos Serviços - NFe
- PCASTRO
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 121
- Obrigados Recebidos: 0
10 anos 4 horas atrás #26231
por PCASTRO
Discriminação dos Serviços - NFe foi criado por PCASTRO
Bom dia,
Não entendo nada de ADVPL, e preciso de uma ajuda.
Tenho a seguinte situação: Criei um campo memo na SC5, para digitar informações sobre o serviço que estou prestando (Como retenção, e o que compõem o valor da NFe), uma vez que o campo C5_MENNOTA não possui caracteres o suficiente.
Mas agora não sei como faço, para que o sistema entenda que deve pegar as informações do novo campo, e não mais do C5_MENNOTA.
Não sei se seria um ponto de entrada, ou outra coisa.
Verifiquei o arquivo NFESP.INI, e não sei qual dos trechos devo usar:
- Se devo substituir o campo destacado abaixo, pelo novo que criei:
// Descricao dos servicos pelo pedido
(PREREG) (_aTotal[23] := "",.T.)
(PREREG) (Iif(_aTotal[30] == "1",SC6->(dbSeek(xFilial("SC6")+SF3->F3_NFISCAL+SF3->F3_SERIE)),.T.),.T.)
(PREREG) (Iif(_aTotal[30] == "1",SC5->(dbSeek(xFilial("SC5")+SC6->C6_NUM)),.T.),.T.)
(PREREG) (Iif(_aTotal[30] == "1",_aTotal[23] := SC5->C5_MENNOTA,.T.),.T.)
Ou se devo trabalhar com base na instrução abaixo, criando um PE:
// Descricao dos servicos pelo ponto de entrada
(PREREG) (_aTotal[82] := SF3->(GetArea()),.T.)
(PREREG) (_aTotal[81] := Iif(_aTotal[80],Execblock("MTDESCRNFE",.F.,.F.,{SF3->F3_NFISCAL,SF3->F3_SERIE,SF3->F3_CLIEFOR,SF3->F3_LOJA}),""),.T.)
(PREREG) (RestArea(_aTotal[82]),.T.)
(PREREG) (_aTotal[23] := Iif(!Empty(_aTotal[81]),_aTotal[81],_aTotal[23]),.T.)
Se alguém puder me ajudar, estou precisando muito.
Atenciosamente,
Agradeço desde já!
Não entendo nada de ADVPL, e preciso de uma ajuda.
Tenho a seguinte situação: Criei um campo memo na SC5, para digitar informações sobre o serviço que estou prestando (Como retenção, e o que compõem o valor da NFe), uma vez que o campo C5_MENNOTA não possui caracteres o suficiente.
Mas agora não sei como faço, para que o sistema entenda que deve pegar as informações do novo campo, e não mais do C5_MENNOTA.
Não sei se seria um ponto de entrada, ou outra coisa.
Verifiquei o arquivo NFESP.INI, e não sei qual dos trechos devo usar:
- Se devo substituir o campo destacado abaixo, pelo novo que criei:
// Descricao dos servicos pelo pedido
(PREREG) (_aTotal[23] := "",.T.)
(PREREG) (Iif(_aTotal[30] == "1",SC6->(dbSeek(xFilial("SC6")+SF3->F3_NFISCAL+SF3->F3_SERIE)),.T.),.T.)
(PREREG) (Iif(_aTotal[30] == "1",SC5->(dbSeek(xFilial("SC5")+SC6->C6_NUM)),.T.),.T.)
(PREREG) (Iif(_aTotal[30] == "1",_aTotal[23] := SC5->C5_MENNOTA,.T.),.T.)
Ou se devo trabalhar com base na instrução abaixo, criando um PE:
// Descricao dos servicos pelo ponto de entrada
(PREREG) (_aTotal[82] := SF3->(GetArea()),.T.)
(PREREG) (_aTotal[81] := Iif(_aTotal[80],Execblock("MTDESCRNFE",.F.,.F.,{SF3->F3_NFISCAL,SF3->F3_SERIE,SF3->F3_CLIEFOR,SF3->F3_LOJA}),""),.T.)
(PREREG) (RestArea(_aTotal[82]),.T.)
(PREREG) (_aTotal[23] := Iif(!Empty(_aTotal[81]),_aTotal[81],_aTotal[23]),.T.)
Se alguém puder me ajudar, estou precisando muito.
Atenciosamente,
Agradeço desde já!
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 4 horas atrás #26236
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 Discriminação dos Serviços - NFe
Priscila bom dia eu tenho este ponti de entrada a tarde eu te passo estou no celular ok.
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.
- PCASTRO
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 121
- Obrigados Recebidos: 0
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 3 horas atrás #26240
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 Discriminação dos Serviços - NFe
#include "PROTHEUS.CH"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³Ponto de Entrada para a discriminacao dos Servicos da RPS º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³Genesys º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function MTDESCRNFE()
Local cRet := ""
Local cNFiscal := Padr(ParamIxb[1],TamSx3("F3_NFISCAL")[1])
Local cSerie := Padr(ParamIxb[2],TamSx3("F3_SERIE")[1])
Local cCliente := Padr(ParamIxb[3],TamSx3("F2_CLIENTE")[1])
Local cLoja := Padr(ParamIxb[4],TamSx3("F3_LOJA")[1])
Local cVencto := ""
Local aCondicao := {}
Local aImpostos := {}
Local aAreaSC6 := SC6->(GetArea())
Local aAreaSC5 := SC5->(GetArea())
Local aAreaSF2 := Sf2->(GetArea())
Local lFirst := .t.
SC5->(DbSetOrder(1))
SC6->(DbSetOrder(1)) //C6_FILIAL+C6_NUM+C6_ITEM+C6_PRODUTO
SF2->(DbSetOrder(1)) //F2_FILIAL+F2_DOC+F2_SERIE+F2_CLIENTE+F2_LOJA+F2_FORMUL+F2_TIPO
SF2->(DbSeek(xFilial("SF2") + cNFiscal + cSerie + cCliente + cLoja))
SD2->(dbSetOrder(3), DbSeek(xFilial("SD2") + cNFiscal + cSerie + cCliente + cLoja))
If SC5->(DbSeek(xFilial("SC5") + SD2->D2_PEDIDO))
cRet := SC5->(Aqui vc Coloca o Nome do Campo Criado) Exemplo: SC5->C5_MENNF
Endif
RestArea(aAreaSC6)
RestArea(aAreaSC5)
RestArea(aAreaSF2)
Return(cRet)
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³Ponto de Entrada para a discriminacao dos Servicos da RPS º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³Genesys º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function MTDESCRNFE()
Local cRet := ""
Local cNFiscal := Padr(ParamIxb[1],TamSx3("F3_NFISCAL")[1])
Local cSerie := Padr(ParamIxb[2],TamSx3("F3_SERIE")[1])
Local cCliente := Padr(ParamIxb[3],TamSx3("F2_CLIENTE")[1])
Local cLoja := Padr(ParamIxb[4],TamSx3("F3_LOJA")[1])
Local cVencto := ""
Local aCondicao := {}
Local aImpostos := {}
Local aAreaSC6 := SC6->(GetArea())
Local aAreaSC5 := SC5->(GetArea())
Local aAreaSF2 := Sf2->(GetArea())
Local lFirst := .t.
SC5->(DbSetOrder(1))
SC6->(DbSetOrder(1)) //C6_FILIAL+C6_NUM+C6_ITEM+C6_PRODUTO
SF2->(DbSetOrder(1)) //F2_FILIAL+F2_DOC+F2_SERIE+F2_CLIENTE+F2_LOJA+F2_FORMUL+F2_TIPO
SF2->(DbSeek(xFilial("SF2") + cNFiscal + cSerie + cCliente + cLoja))
SD2->(dbSetOrder(3), DbSeek(xFilial("SD2") + cNFiscal + cSerie + cCliente + cLoja))
If SC5->(DbSeek(xFilial("SC5") + SD2->D2_PEDIDO))
cRet := SC5->(Aqui vc Coloca o Nome do Campo Criado) Exemplo: SC5->C5_MENNF
Endif
RestArea(aAreaSC6)
RestArea(aAreaSC5)
RestArea(aAreaSF2)
Return(cRet)
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.
- PCASTRO
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 121
- Obrigados Recebidos: 0
10 anos 2 horas atrás #26241
por PCASTRO
Respondido por PCASTRO no tópico Discriminação dos Serviços - NFe
Luiz,
Obrigada!!!
É preciso mudar algum T/F no parte, destacada abaixo, do arquivo NFESP.INI?
Ou basta executar o PE?
// Descricao dos servicos pelo ponto de entrada
(PREREG) (_aTotal[82] := SF3->(GetArea()),.T.)
(PREREG) (_aTotal[81] := Iif(_aTotal[80],Execblock("MTDESCRNFE",.F.,.F.,{SF3->F3_NFISCAL,SF3->F3_SERIE,SF3->F3_CLIEFOR,SF3->F3_LOJA}),""),.T.)
(PREREG) (RestArea(_aTotal[82]),.T.)
(PREREG) (_aTotal[23] := Iif(!Empty(_aTotal[81]),_aTotal[81],_aTotal[23]),.T.)
Desculpem os milhões de questionamentos, mas apanho um pouco quando o assunto é ADVPL.
Grata!
Priscila Castro.
Obrigada!!!
É preciso mudar algum T/F no parte, destacada abaixo, do arquivo NFESP.INI?
Ou basta executar o PE?
// Descricao dos servicos pelo ponto de entrada
(PREREG) (_aTotal[82] := SF3->(GetArea()),.T.)
(PREREG) (_aTotal[81] := Iif(_aTotal[80],Execblock("MTDESCRNFE",.F.,.F.,{SF3->F3_NFISCAL,SF3->F3_SERIE,SF3->F3_CLIEFOR,SF3->F3_LOJA}),""),.T.)
(PREREG) (RestArea(_aTotal[82]),.T.)
(PREREG) (_aTotal[23] := Iif(!Empty(_aTotal[81]),_aTotal[81],_aTotal[23]),.T.)
Desculpem os milhões de questionamentos, mas apanho um pouco quando o assunto é ADVPL.
Grata!
Priscila Castro.
Por favor Acessar ou Registrar para participar da conversa.
- admin
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 297
- Obrigados Recebidos: 21
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Discriminação dos Serviços - NFe
Tempo para a criação da página:0.119 segundos