Como podemos te ajudar?

  1. Senior
  2. GESTÃO EMPRESARIAL | ERP e GO UP
  3. ERP e GO UP | Mercado

    ERP – NFS-e – Como realizar a quebra dos itens na DISCRIMINAÇÃO DOS SERVIÇOS no Template da Nota de Serviço

    Janira Wehrmeister
    • Atualizado

    Dúvida
    Como realizar a quebra dos itens na DISCRIMINAÇÃO DOS SERVIÇOS no Template da Nota de Serviço no módulo de Mercado?
     
    Solução
    Para realizar a quebra na DISCRIMINAÇÃO DOS SERVIÇOS no Template da Nota de Serviço, é necessário execute os passos abaixo:
     
    1. Acesse a tela F098REG - Cadastros / Identificadores e parâmetros / Identificador de Regras;
    2. Cadastre o identificador de regras GER-000ABRASF1;
    3. No botão Regras, cadastre a seguinte regra abaixo:
     
    Definir numero VSIntCodEmp;
    Definir numero VSIntCodFil;
    Definir alfa VSIntCodSnf;
    Definir numero VSIntNumRps;
    Definir alfa VSIntDesSer;
    Definir alfa CR;
    Definir alfa Vsintcodcna;
    Definir alfa Descricao;
    Definir alfa DescCompl;
    Definir alfa xqtdfat;
    Definir Alfa xVlrpre;
    Definir Alfa xVlrLiq;
    Definir Alfa xMsgFisc1;
    Definir Alfa xMsgFisc2;
    Definir Alfa xFatura;
    Definir Alfa xObsNfv;
    Definir Alfa xNumtTit;
    Definir Alfa xVlrTit;
    Definir Alfa xVctTit;
    Definir Alfa yDia;
    Definir Alfa yMes;
    Definir Alfa yAno;
    Definir Alfa VSIntTomEml;
    Definir alfa xDesItem;
    Definir numero DesItem;
     
    Definir Cursor C_E140ISV;
    Definir Cursor C_E140NFV;
    Definir Cursor C_E301TCR;
    Definir Cursor C_E085CLI;
     
    C_E140ISV.Sql SELECT E140ISV.PreUni, E080SER.DesSer, E140ISV.SEQISV, E140ISV.CPLISV, E140ISV.qtdfat, E140ISV.VLRLIQ, E140ISV.CPLISV FROM E140ISV, E080SER /
                    WHERE E140ISV.CODEMP = E080SER.CODEMP  AND E140ISV.CODSER = E080SER.CODSER /
                      AND E140ISV.CODEMP = :VSIntCodEmp AND E140ISV.CODFIL = :VSIntCodFil AND E140ISV.CODSNF = :VSIntCodSnf /                    
                      AND E140ISV.NUMNFV = :VSIntNumRps ORDER BY E140ISV.SEQISV;
                            
    VSIntDesSer = ;    
     
    C_E140ISV.AbrirCursor();
    Enquanto (C_E140ISV.Achou)
    Inicio          
    DesItem = C_E140ISV.seqisv;
    IntParaAlfa(DesItem, xDesItem);
    DescCompl=xDesItem + C_E140ISV.cplisv;
    Descricao = Descricao +  DescCompl;
    TamanhoAlfa(Descricao,vtam);
    CaracterParaAlfa(10, CR);
    InserirAlfa(CR,Descricao,vtam+1);
    DescCompl = ;
    C_E140ISV.Proximo();
    Fim;
     
    VSIntDesSer=Descricao;
     
     
    Importante
    A função CDATA deverá ser gerada para que funcione a quebra. Para gerar o CDATA é necessário verificar se o parâmetro global ChrQbrXml está configurado corretamente. Para maiores informações, verifique o artigo ERP - NFS-e - Como habilitar a utilização da função CDATA para emissão de XMLs Documentos Fiscais no Gestão Empresarial | ERP.