ANT.CARLOS.SP

Puxa, estava tão bitolado que nem vi isto. Obrigado, era isto mesmo.

Boa tarde! Tenho o seguinte dados para testar a NF-e: ================================== UF - EMPRESA := 'SP' Produto := 'AAAAAAAAAAAAA' CEST := '2500101' CSOSN := 500 CFOP := '5.405' Cliente := 'Jose Maria' end: xxxx, cidade: promissão, UF:= SP Fiz vário teste com nota consumidor final em Homologação e tudo funcionou ok. (001) - Mas agora tento enviar a NF-e em mode de Produção e a mesma gera um erro. Sendo os dados nesta configuração: CEST = '2500101' , CSOSN = 500 , CFOP = '5.405' gera um erro: "vFCPUFDest is unexpected", mas só que meu cliente reside na UF SP o mesmo da empresa, SP. (002) - Se os dados nesta configuração: CEST := '2500101' , CSOSN := 102 , CFOP := '5.405' gera um erro: "CEST is unexpected". Sei que o Csosn x Cfop esta divergente, mas em homologação passou. Em anexo tem as imagens de erro e os xml em Homologação e Produção. Alguém poderia me dar uma luz, pois já não sei mais o que fazer. 100+ ANT.CARLOS/SP 35160503898682000190550010000024311000024312-nfe-001-Producao.xml 35160503898682000190550010000024311000024312-nfe-002-producao.xml 35160516458262000134550010000024331000024335-nfe-001-Homologacao-ok.xml Imagem do erro ao enviar Nf-e no item (001)

Bom dia! Obrigado pela atenção! Pesquisei no ACBrSAT1.CFe.ide... e não consegui encontrar o campo chave do CF-e. Teria como pegar também a Chave do CF-e ? 100+ ANT.CARLOS/SP

Olá boa noite! Estou precisando de recuperar o número do CF-e logo após a geração do XML, neste ponto: ACBrSAT1.EnviarDadosVenda( mVendaEnviar ); if DMSAT.ACBrSAT1.Resposta.codigoDeRetorno = 6000 then Begin LoadXML( DMSAT.ACBrSAT1.CFe.AsXMLString, mRecebido); stSatgerado := true; end; Alguém poderia dar uma dica de como fazer isto?

Que droga hein!!! Pois tenho um cliente que usa 3 casas decimais e 4 casas decimais no valor. Problema, pois no cupom vai sair arredondado e ao emitir a nota fiscal, com 4 casas decimais, gerar um no somatório dos itens. Ex: NF-e--> 300,000 x 4.4099 = > 1.327,99 SAT---->300 X 4.41 ===> 1323,00 Que bucha hein!!! Alguém saberia com resolver isto? 100+ ANT.CARLOS/SP

Feliz ano novo! Estou com o mesmo problema e ainda nenhuma ideia para contornar esse problema.

Rejeição: CST incompatível na operação com Não Contribuinte Alguém já sabe de alguma coisa sobre a correção deste erro?

boa tarde! Estou testando o ACBRSat, com Sat já hologado, "ACBR/SAT", mas estou encontrando um problema na rotina EnviarDadosVenda. 1-O arquivo Enviar esta sendo gerado 2-Ao executar a: "function TACBrSAT.EnviarDadosVenda(dadosVenda : AnsiString) : String ;" na linha 1140, exibe uma msg de Acess Violation. Alguém aberia me dizer o porque acontece isso, pois antes de atualiza o ACBr, dia 28/10, funcionava normalmente. Em anexo imagem dos dados. Obs: Meu aparelho SAT não acende a luz "" Conectado ao AC", mas ao testar o mesmo assinala que foi Associado ao AC. 100+ Ant.Carlos/SP

Hummm!!!! Não vi o detalhe "NOVO" Fortes Report CE, como ja estava usando normal, achei q não fosse o problema, mas sim algum problema com o Delphi. Blz, funcionou normal, ufaa!!! Muito obrigado!

Sim tenho o Fortes Report instalado sim. Até ontem usava normal. Depois da atualizacao não funciona mais. Será q tenho q atualizar o Fortes Report tbém?

Olá bom dia! Sim usei o instalador. quando instalei, marquei várias opções, desmarquei as que exibiam erro, ai instalou. veja em anexo o log. Estou tentando instalar manualmente o que falta, mas não consigo, porque não encontre o tal componente. log_Delphi_7.txt

Olá bom dia! Estava usando a ACBR Trunk2 ja algum tempo. Mas hoje resolvi atualizar e a coisa não funcionou mais. Desinstalei o Acbr via arquivo .bat, fui no Delphi fiz uma limpeza, e muito mais q encontrei aqui no forum. Para testar estou abrindo um exemplo do SAT para ver se todos os componentes foram instalados. Ao abrir, aparece as seguinte mensagem: Class TACBrSATEExtratoFortes no found. Ja fiz de tudo q sabia para tentar corriir, mas nada. Se alguém puder me ajudar, desde ja meus agradecimentos. 100+ ANT.CARLOS/SP

Olá bom dia! Resolvido. USES TypInfo ACBrBoleto1.Banco.TipoCobranca := TACBrTipoCobranca( GetEnumValue( TypeInfo(TACBrTipoCobranca) , 'cobSantander') ); 100+ ANT.CARLOS/SP

Olá bom dia! Teria alguma forma de eu enviar uma string e retornar um TACBrTipoCobranca? exemplo: ACBrBoleto1.Banco.TipoCobranca:= Get_TipoCobranca('cobSantander'); e me retornasse o tipo de carteira com o tipo TACBrTipoCobranca ? Sem mais, ANT.CARLOS/SP

Olá boa tarde! Tenho a seguinte dúvida: Desejaria obter o tipo de cobranca para o boleto e estou fazendo assim: If codbanco = '033' Then ACBrBoleto1.Banco.TipoCobranca:= cobSantander; TEm alguma forma de fazer dessa maneira? ACBrBoleto1.Banco.TipoCobranca:= Get_TipoCobranca(codigoBanco); //cobSantander; e me retornasse o tipo de carteira com o tipo TACBrTipoCobranca ? Sem mais, ANT.CARLOS/SP

Já resolvi. Algum erro na configuração da conta do cliente no banco, gerava um erro no código de transmissão. O sistema de homologação do banco, me sugeria um cod. Transmissão com 21 caracteres, (062907292007013001113) como sendo o correto q deveria enviar. Depois de tanto relutar com o suporte, eles observaram o erro e fizeram correção no cadastro do cliente. 100+ obrigado, ANT.CARLOS/SP

Olá boa noite! Alguém poderia postar aqui o arquivo do boleto Santander, Fortes Report, homologado? A quem puder fazer isto desde já meus agradecimentos. 100+ ANT.CARLOS/SP

Olá boa noite! Estou usando AcbrSat com o SAT-CFe OFFLine, e criando o componente ACBrSat em RunTime. Minhas duvidas: 1- Como passar a assinatura do AC para o componente ACBSat? 2-Como passar meu código de ativação para o ACBRSAT ? Obs: Embora tenha estudado o ACbr-Teste, não entendi como a senha e a assinatura é passada para o componente, mas ja vi que o AC se comunica com o Emulador, embora sendo recusado pela falta da assinatura do AC e código de ativação. sem mais, ANT.CARLOS/SP

Bom instalei manualmente e deu td certo. Mas um dos problemas era isto, os path do library estavam setados. Obrigado a todos. sem mais ANT.CARLOS/SP

Agora ferrou, não instala nem pelo Acbr-Trunk e nem pelo Trunk2. veja meu arquivo de log em anexo. 100+ log_Delphi_7.txt

Existe um algum novo procedimento para instalar o ACBR-Trunk-2 do Zero? Pois mais uma vez desinstalei tudo, agora ferrou, não instalo mais nada. Estou voltando para o ACBr-Trunk-1, mas preciso agora fazer a atualização para Trunk-2. Ob: Quando instalado o Acbr-Trunk e atualizo com o ACbr-Trunk2, uma pasta \code é criada e o trunk2 instala ai. Estou meio confuso em saber qual das pastas esta sendo usada, uma vez que tem duplicidade de pastas em Acbr\ e Acbr\code\. Se alguém puder da umas dicas, agradeço.

Consegui instalar, mas um erro continua insistindo. Isto começou a acontecer depois q fiz uma atualização no ACBr-Trunk-1. Já instalei e desinstalei o ACBr-Trunk-1 e Acbr-Trunk-2, a gora atualizei pro Trunk-2 e nada de resolver o problema. No Trunk2, minha pasta de instalação ficou assim: C:\Pascal\Comp\Acbr\code, está tudo instalado no Delphi, mas o exemplo SAT não roda. Veja as imagem gerada ao instanciar o ACBr-Teste: Oi Italo! Depois que descobri o ACBr-install-trunk2, a instalação funcionou.

Olá boa tarde! Desinstalei o acbr e estou tentando re-instalar o ACBr pelo Trunk-2, os arquivos foram baixados, mas ao prosseguir uma msg de erro é gerada: "synapse.dpk não encontrada" e pede para re-instalar novamente. Não consigo continuar a instalação. Já fiz a atualização do ACrb-Install. sem + ANT.CARLOS/SP

Olá boa noite! Criei uma rotina para tratar impressoras. Sei q qq um pode conseguir isto na net, mas vou disponibiliar aqui pois tive muito trabalho para fazer uma Impressora Zebra funcionar na USB. a quem interessar está disponivil ja pronto aqui. 100+ ANT.CARLOS/SP ---------------------------- // Unites winspool, Printers // Nome da impressora, nome compartilhado, n.porta, se está na rede // // function Get_NomeDaImpressoraCompartilhada(Var vServerName, vPrinterName, vShareName, vPorta:String; Var vRede:Boolean):String; var PrinterInfo: PPrinterInfo2; PrnHandle :THandle; PrnInfo2 :PPRINTERINFO2; PrnInfoSize :DWord; pDevice : pChar; pDriver : pChar; pPort : pChar; hDMode : THandle; Begin Result := ''; vServerName := ''; //na rede "\\192.168.0.157" compart. local retorna nil vPrinterName:= ''; //na rede "\\192.168.0.157\EpsonLX-300" vShareName := ''; //na rede "LX-300" vRede := false; vPorta := ''; printDialog1 := TPrintDialog.Create(nil); If printDialog1.Execute Then begin if OpenPrinter(PChar(Printer.Printers.Strings[Printer.PrinterIndex]), PrnHandle, nil) then begin GetMem(pDevice, cchDeviceName); GetMem(pDriver, MAX_PATH); GetMem(pPort, MAX_PATH); Printer.GetPrinter(pDevice, pDriver, pPort, hDMode); if lStrLen(pDriver) = 0 then begin GetProfileString('Devices', pDevice, '', pDriver, MAX_PATH); pDriver[pos(',', pDriver) - 1] := #0; end; if lStrLen(pPort) = 0 then begin GetProfileString('Devices', pDevice, '', pPort, MAX_PATH); lStrCpy(pPort, @pPort[lStrLen(pPort)+2]); end; vPorta := StrPas(pPort); GetPrinter(PrnHandle, 2, nil, 0, @PrnInfoSize); PrnInfo2 := AllocMem(PrnInfoSize); if GetPrinter(PrnHandle, 2, PrnInfo2, PrnInfoSize, @PrnInfoSize) then Begin Result := PrnInfo2^.pShareName; vServerName:= PrnInfo2^.pServerName; vPrinterName:= PrnInfo2^.pPrinterName; vShareName := PrnInfo2^.pShareName; If Pos('\\',vServerName) > 0 Then vRede := true; End else Application.MessageBox('Erro ao conectar Impressora!','Erro',MB_Ok+mb_IconInformation); ClosePrinter(PrnHandle); FreeMem(PrnInfo2, PrnInfoSize) end; end; printDialog1.Free; End; ----------------------------

Olá boma dia! Devido a nova lei sancionada em Janeiro/2013, nos cupons fiscais deverá sair o Total de Tributos cobrado pelo governo nos produtos. Junho está chegando e niguém fala nada sobre isto. Alguém sabe alguma coisa ? 100+ ANT.CARLOS/SP