LIDERNetwork

Olá Isaque! Na verdade já fiz de tudo e no debug nao apresenta nada de errado, o componente esta sendo preenchido corretamente. Por gentileza tem como verificar se estou errando na abertura e fechamento dos blocos dos registros? É que é a primeira vez que ajustei pra gerar o contribuições no entanto estou sentindo mais dificuldades do que o SPED ICMS e também porque sei que alguns registros dependem de outros para que o componente gere o TXT corretamente e eu não sei se estou preenchendo ele do jeito que é pra fazer, se tiver um exemplo so desse bloco e puder compartilhar agradeço!!

Bom dia Colegas, gostaria de saber porque não esta sendo gerado o bloco F500+F525 no TXT gerado com o código da procedure abaixo relacionado, gostaria de saber onde estou errando? with PisCofins.Bloco_f do begin with RegistroF001New do begin with RegistroF010New do begin CNPJ := sCNPJEmpresa; IND_MOV := imComDados; if TipoMovimento = 'CAIXA' then begin if DM.IBTransaction.Active then //PEGA NOTA NFC-E DM.IBTransaction.Commit; DM.IBTransaction.StartTransaction; BlocoF500.Close; BlocoF500.ParamByName('CODEMP').AsInteger := iEmp; BlocoF500.ParamByName('DATAINI').AsDate := DATA_INCIO; BlocoF500.ParamByName('DATAFIN').AsDate := DATA_Fim; BlocoF500.ExecOrOpen; if not BlocoF500.IsEmpty then begin while not BlocoF500.eof do begin with RegistroF500New do begin VL_REC_CAIXA := BlocoF500TOTAL.AsCurrency; CST_PIS := StrToCstPis(BlocoF500CST_PIS.AsString); VL_DESC_PIS := 0; VL_BC_PIS := BlocoF500TOTAL.AsCurrency; ALIQ_PIS := BlocoF500ALIQUOTA_PIS.AsFloat; VL_PIS := BlocoF500TOTALICMSPIS.AsCurrency; CST_COFINS := StrToCstCofins(BlocoF500CST_COFINS.AsString); VL_DESC_COFINS := 0; VL_BC_COFINS := BlocoF500TOTAL.AsCurrency; ALIQ_COFINS := BlocoF500ALIQUOTA_COFINS.AsFloat; VL_COFINS := BlocoF500TOTALCOFINS.AsCurrency; COD_MOD := '65'; CFOP := StrToInt(BlocoF500CFOP_VENDAS_CF_EST.AsString); COD_CTA := '01'; INFO_COMPL := ''; if (CST_PIS = strtocstpis('04')) or (CST_PIS = strtocstpis('05')) or (CST_PIS = strtocstpis('06')) or (CST_PIS = strtocstpis('07')) or (CST_PIS = strtocstpis('08')) or (CST_PIS = strtocstpis('09')) then begin Bloco_M; end; end; BlocoF500.Next; end; end; BlocoF500NFe.Close; //PEGA NOTA FISCAIS DE SAIDA NF-E BlocoF500NFe.ParamByName('CODEMP').AsInteger := iEmp; BlocoF500NFe.ParamByName('DATAINI').AsDate := DATA_INCIO; BlocoF500NFe.ParamByName('DATAFIN').AsDate := DATA_Fim; BlocoF500NFe.ExecOrOpen; if not BlocoF500NFe.IsEmpty then begin while not BlocoF500NFe.eof do begin with RegistroF500New do begin VL_REC_CAIXA := BlocoF500NFeTOTAL.AsCurrency; CST_PIS := StrToCstPis(BlocoF500NFeCST_PIS.AsString); VL_DESC_PIS := 0; VL_BC_PIS := BlocoF500NFeTOTALBASEPIS.AsCurrency; ALIQ_PIS := BlocoF500NFeALIQ_PIS.AsFloat; VL_PIS := BlocoF500NFeVALORPIS.AsCurrency; CST_COFINS := StrToCstCofins(BlocoF500NFeCST_COFINS.AsString); VL_DESC_COFINS := 0; VL_BC_COFINS := BlocoF500NFeTOTALBASECOFINS.AsCurrency; ALIQ_COFINS := BlocoF500NFeALIQ_COFINS.AsFloat; VL_COFINS := BlocoF500NFeVALORCOFINS.AsCurrency; COD_MOD := '55'; CFOP := StrToInt(BlocoF500NFeCFO.AsString); COD_CTA := '01'; INFO_COMPL := ''; if (CST_PIS = strtocstpis('04')) or (CST_PIS = strtocstpis('05')) or (CST_PIS = strtocstpis('06')) or (CST_PIS = strtocstpis('07')) or (CST_PIS = strtocstpis('08')) or (CST_PIS = strtocstpis('09')) then begin Bloco_M; end; end; BlocoF500NFe.Next; end; end; Bloco525NFCe.Close; //PEGA TOTAIS BLOCO F525 PARA APURAÇÃO CAIXA Bloco525NFCe.ParamByName('CODEMP').AsInteger := iEmp; Bloco525NFCe.ParamByName('DATAINI').AsDate := DATA_INCIO; Bloco525NFCe.ParamByName('DATAFIN').AsDate := DATA_Fim; Bloco525NFCe.ExecOrOpen; if not Bloco525NFCe.IsEmpty then begin while not Bloco525NFCe.eof do begin with RegistroF525New do begin VL_REC := Bloco525NFCeTOTAL.AsCurrency; IND_REC := StrToInd_Rec('05'); CNPJ_CPF := RetiraCaracter(Bloco525NFCeR04_CNPJ_CLIENTE.asstring); NUM_DOC := ''; COD_ITEM := Bloco525NFCeCOD_PRO.Asstring; VL_REC_DET := Bloco525NFCeTOTAL.AsCurrency; CST_PIS := StrToCstPis(Bloco525NFCeCST_PIS.AsString); CST_COFINS := StrToCstCofins(Bloco525NFCeCST_COFINS.AsString); INFO_COMPL := ''; COD_CTA := '01'; end; Bloco525NFCe.Next; end; end; Bloco525NFe.Close; //PEGA TOTAIS BLOCO F525 PARA APURAÇÃO CAIXA Bloco525NFe.ParamByName('CODEMP').AsInteger := iEmp; Bloco525NFe.ParamByName('DATAINI').AsDate := DATA_INCIO; Bloco525NFe.ParamByName('DATAFIN').AsDate := DATA_Fim; Bloco525NFe.ExecOrOpen; if not Bloco525NFe.IsEmpty then begin while not Bloco525NFe.eof do begin with RegistroF525New do begin VL_REC := Bloco525NFeTOTAL.AsCurrency; IND_REC := StrToInd_Rec('05'); CNPJ_CPF := RetiraCaracter(Bloco525NFeCNPJ_CLI.asstring); NUM_DOC := ''; COD_ITEM := Bloco525NFeCOD_PRO.Asstring; VL_REC_DET := Bloco525NFeTOTAL.AsCurrency; CST_PIS := StrToCstPis(Bloco525NFeCST_PIS.AsString); CST_COFINS := StrToCstCofins(Bloco525NFeCST_COFINS.AsString); INFO_COMPL := ''; COD_CTA := '01'; end; Bloco525NFe.Next; end; end; if DM.IBTransaction.Active then DM.IBTransaction.Commit; BlocoF500.Close; BlocoF500NFe.Close; Bloco525NFCe.Close; Bloco525NFe.close; end; end; end; PisCofins.WriteBloco_F; end;

Colegas, De tanto persistir eis que uma simples ação resolve de vez o problema de conexão na serial com o erro Parametro incorreto 87, então fiz os seguintes passos: 1 - Instalei a impressora usando o drivers spooler do fabricante 2 - removi o driver de porta virtual o TMVirtualPortDriver 3 - compartilhei a impressora no windows com o nome EPSON 4 - Em porta de comunicação coloquei \\localhost\EPSON 5 - Usei o PosPrinter na mesma porta do ACBRECF e linkei ao ACBRECF 6 - Setei a propriedade modelo para ppEscPosEpson Agora está imprimindo em EscPos perfeitamente sem cortes e nem atropelos! Como o Regys falou é bem mais rápido e perfeita a impressão! Agora vou "brincar" mais com a Epson pois baixei a DLL para impressoras não fiscais do fabricante e é muito simples de usar inclusive o pessoal do ACBR poderia implementar no Escpos usando a InterfaceEpsonNF.dll assim como o Daniel fez com a DLL da Epson para impressoras Fiscais, pois as DLLs tem funções para NCF-e nativas e impressões de QRCode Bons códigos!

Estou ressuscitando o post devido a não ter ainda encontrado solução para o meu caso que é igual para todos em exceção de um detalhe: 1 - Se uso Fast ou Fortes a margem da esquerda na Epson corta e não tem jeito algum de resolver isso mexendo nas margens seja no driver seja no componente não muda em nada! Problema ainda sem solução de acordo com os vários e vários post aqui do forum. Curioso é que se eu gerar o PDF e imprimir sai perfeito... 2 - Se coloco em modo EscPos dá erro Parametro incorreto: 88 isso está ocorrendo apos atualizar para o trunk2. No trunk funcionava 100%... Enfim não tem jeito de usar a Epson em nenhum dos modos pelo menos até a comunidade encontrar uma solução pois eu já tentei de tudo!!

Bom dia Colegas, Tambem estou com o mesmo problema de corte de margem esquerda e meu trunk2 esta atualizado e tambem nao encontrei essa propriedade, alguem tem como nos ajudar?? Achei!! Danilo vá na propriedade Margin (TRLMargins) clique no sinal + dai vai ter a propriedade leftmargin Mas aqui ainda não resolveu...

Olá, Depois que mudou pro trunk2 ainda to meio perdido com os arquivos, mas obrigado pela informação!

Obrigado pela informação Juliomar Mas vc tem como me informar o .pas que possui as tags?

Bom dia, Atualizo quase que todos os dias mas nao tenho costume de verificar em detalhes que mudou se não ocorrer erros nas compilações. Já possui as tags??

Bom dia Colegas, Com a nota tecnica 2015/002 foi adicionada novas tags para informar dados em relação ao abastecimento como nbomba, nbico, etc... como acontecia antes no ECF. Não se sabe se essa informação será obrigatório para alguns dos estados que a regulamentaram mas gostaria de saber se os desenvolvedores tem conhecimento da obrigatoriedade da informação no NFC-e e quais tags utilizar se já foram implementadas no trunk2? Preciso saber se já implementaram caso não, posso adicionar as referidas tags e disponibilizar para subir ao svn e assim contribuir com o projeto.

Muito obrigado fernando sua implementação foi aceita na SEFAZ sem erro de schema, eu mesmo tinha modificado o arq ACBrNFeServicos.ini mas sem sucesso. Também entrei em contato com a SEFAZ-PB que não nos deu retorno acredito que eles lá tão mais perdido do que cego em tiroteio com as novas mudanças...

Ninguem????????????????

Bom dia colegas, Ja li um topico falando a respeito e inclusive no demo tem um exemplo mas estou enfrentando uma grande dificuldade na captura das seguintes informações: 1 - OPERADORA 2 - SE CREDITO OU DEBITO 3 - BANDEIRA Essas informações já tentei de todo jeito e so vem em branco. Aqui possuo o teste do SITEF e VSPAGUE e em nenhum dos dois funciona nao retorna nada vem tudo em branco então não sei se estou colocando os comandos em algum evento errado ou mesmo usando a unit errada!! O sistema esta configurado em modo FILE - Gerenciador Padrao - TEF_DIAL e no SITEF uso o Client Modular e para o VSPAGUE uso o gerenciador deles mesmo e todos usam a pasta TEF_dial para a troca de arquivos. Preciso da ajuda ou alguma dica dos colegas porque preciso dessas informações para gerar o Registro 1600 do SPED Fiscal que é em relação a vendas no cartão por operadora.