maricelo

Bom dia a todos. Gostaria de saber se existe um correção para o seguinte problema: Estou usando o AcbrDanfeFR (fast). para visualização e impressão das nf's. O problema ocorre quando preciso carregar varias notas para mostrar/imprimir de uma só vez.. o campo no cabeçalho da nota onde aparece Folha 1/X. não funciona corretamente. pois se cada nota usar uma folha do previw.. deveria aparecer Folha 1/1 em cada nota.. mas digamos que eu carreguei trez notas. ira aparecer Folha 1/3, Folha 2/3 e Folha 3/3. Eu testei com o danfe do Rave. e neste funciona corretamente, mas eu preciso usar o fast para manter o padrão do sistema. e outras pessoas também ja devem ter passado por este problema. as vezes até sem notar. Então a pergunta é: existe uma forma de corrigir este problema no danfe do fast? Obrigado, Maricelo

André, basta adicionar +#13 no final.. ou +#13+#10.... ou +#13+#10+'.'+#13+#10 voce pode copiar meu exemplo.. transcrevendo a forma certa aqui para mim? obrigado. Maricelo

Olá, estou enviando o comando para acbrnfemonitor da seguinte forma: fsocket.SendString('NFE.CARTADECORRECAO("[CCE]'+ 'idLote=1'+ '[EVENTO001]'+ 'chNFe='+cChave+ 'cOrgao='+xcOrgao+ 'CNPJ='+xCNPJ+ 'dhEvento='+xdh+ 'nSeqEvento='+xseq+ 'xCorrecao='+xcorrecao+ '")'+#13+#10+'.'+#13+#10); e o monitor esta retornando: NFE.CARTADECORRECAO("[CCE]idLote=1[EVENTO001]chNFe=11130407409655000167550010000664711000006661cOrgao=11CNPJ=07409655000167dhEvento=24/04/2013 11:31:48nSeqEvento=1xCorrecao=CORREçãO DA QUANTIDADE DO VOLUME, ONDE O MESMO PASSA A SER 31 VOLUMES") ERRO: ERRO: Nenhuma CC-e adicionada ao Lote oque está errado, agradeço a ajuda. Maricelo

Olá, Não estou conseguindo instalar o componente ACBrNFeDanfeFRpkg.dpk no Delphi 7, tenho o Fast Report 3.24 Enterprise instalado e apresenta o erro na instalação: dmDanfe.frxPDFExport.Producer := Sistema; -> Undeclared Identifier: Producer O que pode ser e como resolver? Obrigado

ok.. obrigado André.

Boa tarde, gostaria de saber se é possível enviar email da nota fiscal através do acbrnfemonitor, em formato html, personalizando com um visual mais elegante? Obrigado, Maricelo

Boa noite, gostaria de alguma dica se possível, na recepção da resposta do acbrnfemonitor, tenho tido problema com o tempo de resposta; as vezes da tempo e outras vezes não. gostaria de saber se é indicado deixar em loop a espera do retorno do acbrnfemonitor, abaixo segue um trecho de código que utilizo. agradeço alguma dica para perder a resposta do acbrnfemonitor. memo1.Lines.Clear; fsocket.SendString('NFE.CANCELARNFE("'+stChave+'","'+stJustificativa+'")'+#13+#10+'.'+#13+#10); memo1.Lines.Add(fsocket.RecvTerminated(10000,#3)); if memo1.Lines.Count = 0 then Memo1.Lines.Add('erro'); if Pos('OK:',memo1.Lines[0])>0 then CancelarNFE := true else CancelarNFE := false; Obrigado, Maricelo

ok.. obrigado a todos. no meu caso era o servidor do Bruno que postou acima. problema resolvido.

Boa tarde, alguém usa o acbrnfemonitor no windows server 2003? tentei configurar mais sempre da serviço inoperante, ja registrei a capicom, copiei as dlls para a pasta system32. ou seja os procedimentos normais que uso no xp e seven. o server é sp2 e acbrnfemonitor capicom (0.7.9.3) alguém usa neste ambiente e pode me dar alguma dica? Obrigado, Maricelo

ok.. obrigado,, eu baixei, ainda não testei, assim que eu testar e caso obtenha sucesso posto aqui o resultado ok.

por favor me corrijam se eu estiver errado, acho que entendi.. 1.2 é a versão do fastreport for lazarus, e não para lazarus versão 1.2. é isto mesmo?

Bom dia a todos! no site do fastreport foi lançado versão para lazarus, em uma versão para lazarus 1.2 eu sempre baixo o lazarus na pagina snapshots, mas a versão mais nova disponível é 1.1, minha dúvida é: existe a versão 1.2 ? onde baixar? Agradeço quem puder esclarecer.

Bom dia, alguém pode me dizer oque significa NSU. este parametro é usado no procedimento abaixo Ultimo NSU. estou fazendo atualizações no sistema, para adequar a estes novos requisitos, mas não tenho idéia do que seja NSU. ACBrNFe1.ConsultaNFeDest(CNPJ, StrToIndicadorNFe(ok,indNFe), StrToIndicadorEmissor(ok,IndEmi), UltNSu); Topico editado encontrei na NT2012.002 que este campo siguinifica código unico da nf dentro do ambiente utilizado, mas ainda não sei como obter este código, verifiquei nos xmls e no protocolo não tem esta informação. Vi que posso usar o valor Zero, mas gostaria de saber se isto é o mais adequado, ou se deveria passar o valor correto do NSU. Obrigado, Maricelo

Olá, eu tenho uma tabela de natureza da operação, esta natureza é escolhida no cabeçalho da nota, então ao incluir o item, verifico se é dentro do estado ou fora, e busco o cfop correto que esta configurado na natureza, tem mais alguns detalhes, mas basicamente é isto.

eles não fornecem o layout?

obrigado pelas dicas, vou verificar estas opções.

Boa tarde Pessoal, alguém pode me dar uma luz sobre este problema? eu preciso importar os cupons fiscais para minha base de dados. a partir da mfd. ja peguei a mfd e exportei pra txt, mas o txt não tem um padrão, alguns itens ficam com um linha, outros duas linhas e outros até tres linhas. e os campos não ficam na mesma posição. alguém ja possou por esta situação? alguma sugestão? agradeço qualquer ajuda. Maricelo

boa tarde, gostaria de solicitar atenção aos usuários com direito de postar alterações no componente, para verificar esta correção. desde já agradeço, Maricelo

Boa tarde, Para Isaque ou outro desenvolvedor. quero relatar um erro nestas funções: StrToNatBcCred e StrToCodSit da unit ACBrEPCBlocos.pas o erro é apenas um "-1" que faz escrever no arquivo um indice acima da informação passada ao componente. eu verifiquei apenas estas funções, pois geraram erro na geração do arquivo, é possível haver outras funções com problema, visto que são funções adicionadas se não me engano na semana passada. Isaque estas funções strtotypo podem não estar todas corretas, por este pequeno problema. ********************************** CÓDIGO ORIGINAL function StrToNatBcCred(AValue: string): TACBrNatBcCred; begin if AValue = '' then Result := bccVazio else Result := TACBrNatBcCred( StrToIntDef( AValue, 1) -1 ); ********************************** CORREÇÃO function StrToNatBcCred(AValue: string): TACBrNatBcCred; begin if AValue = '' then Result := bccVazio else Result := TACBrNatBcCred( StrToIntDef( AValue, 1) ); segue a unit alterada para comparar o merge.

A FAVOR

Bom dia Juliomar. segue as units alteradas para analise. obrigado, Maricelo ACBrEPCBloco_1.pas ACBrEPCBloco_1_Class.pas

Olá Isaque, gostaria de sugerir duas alterações nos fontes do sped pis cofins. estava gerando o arquivo e encontrei alguns erros, que foram solucionados após duas modificações no fonte do componente. segue as alterações: ************************************************ Primeira Sugestão unit ACBrEPCBloco_1_Class; procedure TBloco_1.WriteRegistro1900(Reg1001: TRegistro1001); fiz duas alterações: passei o parametro zero no LFill do CFOP e QUANT_DOC pois estava gerando o arquivo errado, pois o programa estava buscando o LFill usado para TDateTime trecho corrigido Add( LFill( '1900' ) + LFill( CNPJ ) + LFill( COD_MOD ) + LFill( SER ) + LFill( SUB_SER ) + LFill( strCOD_SIT) + LFill( VL_TOT_REC,0,2 ) + LFill( QUANT_DOC,0 ) + LFill( strCST_PIS) + LFill( strCST_COFINS) + LFill( CFOP,0 ) + LFill( INF_COMPL ) + LFill( COD_CTA ) ) ; ****************************************************** Segunda Sugestão unit ACBrEPCBloco_1; o campo FQUANT_DOC estava sendo tipado como Currency, mudei para integer. TRegistro1900 = class private FCNPJ : string; FCOD_MOD : string; FSER : string; FSUB_SER : string; FCOD_SIT : TACBrSituacaoDF; FVL_TOT_REC : Currency; FQUANT_DOC : Integer; FCST_PIS : TACBrSituacaoTribPIS; FCST_COFINS : TACBrSituacaoTribCOFINS; FCFOP : Integer; FINF_COMPL : string; FCOD_CTA : string;

amigo, vou citar como eu faço, pra servir de ideia. eu tenho um campo total de frete no cabeçalho da nota, que fica desabilitado, ao lado tem um botao, que ao ser clicado, abre um imputquery para informar o valor total do frete, entao executo uma função que faz o rateio deste valor no iteis, uso o valor total do item como parametro de rateio, o restante é feito via trigger, conforme eu lanço o valor rateado nos itens. a trigger soma este valor no total da nota.

Olá, alguém no forum possui sistema para android? para vendas externas, com exportação e importação via txt, ftp.

Não existe, com estes certificados que se acha na internet da pra você assinar o xml. mas não consegue fazer nada que precise usar o webservice, como consultar, enviar, etc.. o ideal é exportar o certificado A1 de algum cliente e usar apenas no ambiente de homogação é claro. ou até mesmo pegar emprestado certificado A3 de algum cliente, sempre usei estas duas soluções, ou em último caso você pode adquirir um certificado, mas as duas primeiras opções são mais viaveis.