Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

SergioMistral

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    19

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por SergioMistral

    OPERACAO DE TROCA na NFCE

    em ACBrNFe

    Postado

    Prezados Colegas

    Alguém pode me dizer como faço para que imprimir nas NFCEs o texto de TROCA.

    no meu sistema coloco a opção de Credito de troca, e para a SEFAZ mando o codigo 99 , que vai como OUTROS.
    Quero uma orientação de como mudar este OUTRO para CRÉDITO TROCA na NFCE.

     

    DELPHI x QUICK REPORT 3.0.09

    em Object Pascal - Delphi & Lazarus

    Postado · Editado por SergioMistral

    Faz tempo que não mexo com o QuickReport e nem com o Delphi 7 e tem um relatorio
    que a empresa esta precisando fazer uma manutenção e que não esta efetuando as Quebras.

    A função do relatorio é fazer um listar todos os produtos vendidos durante um periodo, para um determinado Cliente, onde a cada novo Cliente, é totalizado 
    o valor VENDIDO para o CLIENTE e terá um saldo de página para o próximo cliente.

    Há uma query no relatório com a seguinte SQL

    SELECT CR.CR_CLIE AS CODCLIENTE, PR.PR_REFI, PR_GRUP, PR_SUBG, PR_CODI, PR_DESC, IV.IV_CORE, IV.IV_TAMA, IV_UPCU, IV_PVEN,
    SUM(IV_QTDE) QTDE ,sum(IV.IV_TOTA) TOTAL 
    FROM ITENS_VENDAS IV 
    LEFT JOIN ESTOQUE ES ON (IV.IV_GRUP=ES.ES_GRUP) AND 
    (IV.IV_SUBG=ES.ES_SUBG) AND 
    (IV.IV_PROD=ES.ES_PROD) AND 
    (IV.IV_CORE=ES.ES_CORE) AND 
    (IV.IV_TAMA=ES.ES_TAMA) 
    LEFT JOIN PRODUTOS PR ON (IV.IV_GRUP=PR.PR_GRUP) AND 
    (IV.IV_SUBG=PR.PR_SUBG) AND 
    (IV.IV_PROD=PR.PR_CODI) 
    INNER JOIN VENDAS VE ON (IV.IV_VEND=VE.VE_CODI) AND 
    (IV.IV_LOJA=VE.VE_LOJA) AND 
    (IV.IV_CAIX=VE.VE_CAIX) 
    LEFT JOIN CREDIARIOS CR ON (IV.IV_VEND=CR.CR_VEND) AND 
    (IV.IV_CAIX=CR.CR_CAIX) AND 
    (IV.IV_LOJA=CR.CR_LOJA) 
    WHERE IV.IV_LOJA=1

    GROUP BY CR.CR_CLIE, PR.PR_REFI, PR_GRUP, PR_SUBG, PR_CODI, PR.PR_DESC, IV.IV_CORE, IV.IV_TAMA , IV_UPCU, IV_PVEN
    ORDER BY QTDE DESC 

    No formulário tem as seguintes configurações:

    Tenho 1 Objeto QuickRep, Nele 5 Bandas, sendo
    3 banda QrBand, 1 Qrgroup, 1 QrSubdetail1 

    Estão dispostas da seguinte maneira.

    1 Quickrep, Name=Relatorio. e dentro dele por ordem esta:

    1a) Qrband1 - Name= BandaCabecalho = Começando o relatório, é o cabeçalho principal do Relatório, onde mostra todos os filtros usados. 
    Ele aparece uma vez apenas. 

    2a) QrGroup - A banda de Qrgroup, esta renomeada QuebraCliente, que deve controlar a quebra de clientes e as outras bandas associadas ao cliente em questão.
    na expressão qVendas.CODCLIENTE. Possui uma Label onde exibe o Codigo e Nome do Cliente a ser listado. 

    3a) Qrband2 - Name=BndCabDetalhe, esta banda apenas exibe o cabeçalho após cada quebra de clientes, onde exibira o texto "Codigo Nome Produto Qtde valor"
    linkBand = QrGroup1 

    4a) QrSubDetails = N=DetalheCliente, Esta banda exibe os detalhes dos produtos do Cliente
    DataSet=Qvendas - Footerband= BndTotalCliente - 
    headerBand= BndCabDetalhe - linkBand = QrGroup1 - Master = Relatorio

    5a) QrBand3 - Name=BndTotalCliente, Esta banda é para exibir o somatorio do Total dos clientes
    linkBand = QrGroup1

    Problemas:
    O relatório anteriormente não totalizava os valores do cliente. Agora terei que implementar isto, sendo que qdo insiro uma banda, o 
    Qreport colocar ela abaixo de QrBand1 e não consigo colocar ela para baixo.

    A quebra parou de funcionar. Quem puder me ajudar Eu agradeço.

     

    NFCE - MULTIPLAS FORMAS DE PAGAMENTO

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    Eu programei da seguinte abaixo:

      // FormaPag= - indPag - 0 -Vista, 1 - Prazo, 2 - Outras

      if trim(edtCodForma.text) = '1'
         then lArq.Add('FormaPag=0')  // 0 - A Vista
         else
          if trim(edtCodForma.text) = '2'
             then lArq.Add('FormaPag=1')  // 1 - Prazo,
             else
                 lArq.Add('FormaPag=2');  // 2 - Outros,
     

    //    grupo YA

            if yTpag = 3 then
               Begin  
                 lArq.Add('tPag=03');
                 lArq.Add('vPag='+FormatFloat('###,###.#0',(clAux.result('VF_VALO'))));
               // lArq.Add('CNPJ='+clAux.result('CNPJ_OPERADORATOTAL_PAGO'));
                   lArq.Add('tBand=01');
                end;


    Mas abaixo do Valor TOTAL, sai apenas Forma de Pagamento e abaixo "Dinheiro".
     

    CONTIGENCIA NFCE/ NFE - Melhores Praticas

    em ACBrNFe

    Postado

    15 minutos atrás, paulorsa disse:

    Ainda tenho um cliente em Cobol, que emite NFe, mas não utilizo o AcbrMonitorPlus, tenho um programa semelhante que eu mesmo fiz em delphi que lé um txt, cria o xml, assina, envia, gera o pdf, e envia o email para o cliente, claro tudo feito com os componentes do ACBR, é claro o Monitor é 100x melhor pois é muito mais completo e te aconcelho sem duvida a utiliza-lo, caso você queira tirar alguma duvida específica sobre implementação em Cobol se eu puder ajudar fico a disposição. Trabalho com o RMCobol, que foi comprado pela Microfocus, mas acho que nem suporte eles dão mais pra essa versão.

    Sim Paulo, agradeço a sua ajuda. Entrei no meio de um incendio, e ainda não "achei os extintores". rs.rs

    CONTIGENCIA NFCE/ NFE - Melhores Praticas

    em ACBrNFe

    Postado

    Colegas, iniciei um trabalho para fazer a implementação e melhorias em um sistema em um Sistema em Cobol.
    Infelizmente neste caso sou obrigado a usar o AcbrNfeMonitorPlus, trabalhando com a geração do arquivo Txt.

    Neste momento do projeto estou debrucaçado sobre a implementação da rotina de Contigencia e estou com várias duvidas funcionais e técnicas.
    Alguém que já passou por isto, poderia me passar algumas dicas, as melhores práticas para implementação desta rotina.

     

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.