jperim

Esqueci de mencionar q estou usando ECF + Virtual + PosPrinter Eu conseguir resolver o problema da impressão em rede não sair. Coloquei o 1º usuário (porta='RAW:\\10.42.43.15\Daruma DR800 Spooler') e no 2º usuário (porta='RAW:Daruma DR800 Spooler') Deixei somente ECF.ControlePorta=True e no PosPrinter.ControlePorta=False Ai deu certo!!! Se PosPrinter.ControlePorta=True a impressão sair td errada, que era meu 2 problema. Mas obrigado pela ajuda.

Pessoal queria saber se alguém teve problemas de impressão em REDE ativando o ControlePorta. Um usuário (porta='RAW:\\10.42.43.15\Daruma DR800 Spooler') enviar junto com um outro (porta=COM7) e só sair a 1º impressão a 2ª não imprimir. e outra coisa que observei é q por exemplo uma impressão RELATORIO GERENCIAL sair correta com ControlePorta=False e qdo está True a mesma impressão sair cortando alguns caracteres. Aguardo retorno e já agradeço a ajuda.

Pessoal, acho que encontrei um erro. function TACBrConvenio115Mestre.RegistroEAssinatura(AVersaoAnterior: Boolean): TConvenio115AssinaturaMD5; ..... begin SRec := SRec + {23} IntToStr(Ord(IndicadorPessoa) + 1) + {24} _GetTab11_8_2 + {25} '00' + // Telecomunicação é 00 {26} PadLeft(NumeroTelefonePrincipal, 12) + {27} PadLeft(OnlyNumber(FCnpjEmitente), 14, '0') + {28} PadRight(NumeroFaturaComercial, 20) + {29} PadLeft(TiraPontos(FormatFloat('#,##0.00', OutrosValores)), 12, '0') + ///// DEVERIA SER ValorFaturaComecial {30} DataLeituraAnterior + {31} DataLeituraAtual + {32} PadRight('', 50) + {33} PadRight('', 8, '0') + {34} PadRight(Observacoes, 30) + {33} PadRight('', 5); end;

@cloudcon, bom dia, trabalho com @jefferson01 que já estava conversando com vc sobre o envio para pref. da serra. Então, conseguir fazer gerar corretamente o XML, estou usando o usuário e senha que manda o manual, Usuário: 555.555.555-55 Senha: 1234 (Essa senha após aplicar hash fica cRDtpNCeBiql5KOQsKVyrA0sAiA=) Usei inscricaomunicipalemissor = 99999 que está no manual tb como exemplo. Mas recebo como resposta: Erro: Declarante nao autorizado a emitir NFE para o CCM 99999. Já tentei vários "inscricaomunicipalemissor" mas a resposta é a mesma. Sabe de alguma coisa se mudou? Pode me ajudar? Pq o suporte deles é zero... Vc pode me passar algum contato deles para eu contactar, pq o q tenho não conseguir muita coisa. Já agradeço sua atenção.

VERSÃO PAF_ECF='0202' COO e CCF deve ser 9 digitos e campos novos nos outros registros do PAF, blocos ref. a Venda de Bilhete de Passagem

ACBrPAF_F FER_PAF_ECF: string; // Versão da Especificação de Requisitos do PAF-ECF ACBrPAF_F_Class; lin. 194 => LFill(COO, IfThen(ER_PAF_ECF='0202',9,6)) + lin. 193 => LFill(CCF, IfThen(ER_PAF_ECF='0202',9,6)) + lin. 234 => LFill(StrUtils.IfThen(RegistroValido, COD_TSER, '??'), 2) + ACBrPAF_L_Class; lin.140 => RFill(MODELO_ECF, 20, ifThen(RegistroValido, ' ', '?')) + lin.142 => LFill(COO, IfThen(ER_PAF_ECF='0202',9,6)) + ACBrPAF_M; //M2 - Cupom de embarque TRegistroM2 = class private fRegistroValido: Boolean; fPERC_DESC: Currency; // Percentual do desconto praticado sobre a tarifa fCPF_PAS: string; // Número CPF do passageiro. fTEL_PAS: string; // Número de celular do passageiro FER_PAF_ECF: string; // Versão da Especificação de Requisitos do PAF-ECF ACBrPAF_M_Class; WriteRegistroM2 lin. 138 => RFill(MODELO_ECF, 20, ifThen(RegistroValido, ' ', '?')) + lin. 140 => LFill(CCF, IfThen(ER_PAF_ECF='0202',9,6)) + lin. 141 => LFill(COO, IfThen(ER_PAF_ECF='0202',9,6)) + lin. adicionadas => LFill(PERC_DESC, 5, 2) + RFill(CPF_PAS, 11) + RFill(TEL_PAS, 14) + ACBrPAF_R_Class; WriteRegistroR02 lin. 397 => LFill(COO, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) + WriteRegistroR04 lin. 476 => LFill(NUM_CONT, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) + lin. 477 => LFill(COO, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) + WriteRegistroR05 lin. 526 => LFill(RegR04.COO, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) + lin. 527 => LFill( IfThen(NUM_CONT=-1, RegR04.NUM_CONT, NUM_CONT), IfThen(RegR01.ER_PAF_ECF='0202',9,6)) + WriteRegistroR06 lin. 579 => LFill(COO, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) + WriteRegistroR07 lin. 660 => LFill(COO, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) + lin. 661 => LFill(CCF, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) + lin. 676 => LFill(COO, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) + lin. 677 => LFill(CCF, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) +

Por favor analisarem minhas alterações. ACBrPAF.rar

Página 29 do manual em anexo. FS600_FS2100_Comandos_Fiscais_Desenvolvedores_REV_D.pdf FS600_FS2100_Comandos_Fiscais_Desenvolvedores_REV_D.pdf

Se vai servir para outras não sei dizer, só sei que do jeito que estava não funcionava para FS600 que tenho aqui, por isso modifiquei e disponibilizei tentando ajudar. Ao meu ver deveria aceitar essa modificação e outros posteriormente que tenham esses outros modelos vão ajudando tb.

Não estou entendendo coloquei esse IF justamente para funcionar somente para impressora FS600 e FS2100T e para as demais o código ficou como antes. Eu acho que meu ACBrECFDaruma.pas estava desatualizado, coloquei ele novamente. ACBrECFDaruma.pas

Desculpe a demora, mas minha modificação foi colocando esse IF if (fsModeloDaruma in [fs600, fs2100T, fs600USB]) then Fiz de acordo com o manual que tenho e que se refere a estes modelos.

Alterei o cmd para MudaHorarioVersao para Daruma FS600 de acordo com o manual. ACBrECFDaruma.pas

Felizmente consegui implemetar para provedor EL, segue algumas observações: - Este provedor requer autenticação contribuiente antes de enviar o lote rps que retornar um HASH - Para enviar é necessário esse HASH - Depois de enviar tem que FinalizarSessao(HASH) Para passar os paramentros para autenticar, usei: Configuracoes.WebServices.UserWeb := _UserWeb; Configuracoes.WebServices.SenhaWeb := _PassWeb; Esses procedimentos coloquei todos em "TNFSeEnviarLoteRPS.Executar" Outra coisa é que esse provedor não retorna as notas, somente: dataProcessamento idNfseCancelada idNota idRps numero rpsNumero situacao Segue em anexo os fontes. ACBrNFSe.rar

Ítalo, Existe a unit do provedor EL, mas não tem nada implementado ref. a ela e está difícil ter suporte deles para podermos ajudar nesta implementação. Por isso, perguntei se alguém já tinha conseguido.

Aproveitando o tópico de erro, hj tentei consultar um ct-e e estava dando erro. "LIST INDEX OUT OF BOUNDS (1)". Uso somente passando a chave CTe.WebServices.Consulta.CTeChave := ChaveAcesso; CTe.WebServices.Consulta.Executar; ----------------------------------------------------------- ACBrCTeWebService.pas Linha: 2430 estava assim: FConfiguracoes.Geral.Save(FCTeChave+'-CTeDFe.xml', FRetCTeDFe, PathWithDelim(FConfiguracoes.Arquivos.GetPathCTe(TACBrCTe( FACBrCTe ).Conhecimentos.Items.CTe.Ide.dhEmi))); Alterei para: Linha: 2428 if (FConfiguracoes.Arquivos.Salvar) and (FRetCTeDFe <> '') then begin if FConfiguracoes.Arquivos.EmissaoPathCTe then begin if (TACBrCTe( FACBrCTe ).Conhecimentos.Count <= 0) then TACBrCTe( FACBrCTe ).Conhecimentos.LoadFromString(FRetCTeDFe); FConfiguracoes.Geral.Save(FCTeChave+'-CTeDFe.xml', FRetCTeDFe, PathWithDelim(FConfiguracoes.Arquivos.GetPathCTe(TACBrCTe( FACBrCTe ).Conhecimentos.Items[0].CTe.Ide.dhEmi))); end else FConfiguracoes.Geral.Save(FCTeChave+'-CTeDFe.xml', FRetCTeDFe, PathWithDelim(FConfiguracoes.Arquivos.GetPathCTe)); end;