Daniel Simoes

Pouco provável que o erro seja no ACBr... pois esse componente é a base de todos os componentes de consulta, como CNPJ, CPF, CEP, IBGE, etc Se você suspeita da sua máquina... rode o executável em outra máquina... veja o firewall, ou antivírus.. O User agente é definido pela classe da Synsapse, já que ele é obrigatório e você não especificou nenhum...

Sinto muito, não estou conseguindo compreender a sua linha de raciocínio... Se quiser reportar um Bug, favor fornecer o passo a passo usando a aplicação SATTeste.exe Se quiser sugerir modificação nos fontes, favor anexar (zip) as units modificadas...

Viu o Link que o Elton passo ?? Erro 500 geralmente é Proxy na rede...

Não consegui reproduzir o problema... lembrando que estou usando o Trunk2.. mas se você ver no LOG na pasta "trunk"\Fontes", os arquivos modificados no SVN desde a versão 9254... nenhum deles está relacionado a impressão do Exrtrato do SAT... Minha teoria é que seus fontes estão diferente da versão do SVN...

Eu ainda não consegui compreender qual é exatamente o problema... Vc está querendo dizer, que fsRespostaComando fica vazia ??

Então está ainda mais simples... use o LOG do SVN e compare as revisões...

Enviei para o SVN, uma modificação para NÃO deixar a "LarguraModulo" fixa em 4... Com isso o Relatório usará a LarguraModulo definida em PosPrinter...

Abra o Seu Delphi.. ligue o DEBUG e.. use os seus poderes de programador...

O Debug do Delphi não tem nenhuma relação com o emulador... A imagem acima, mostra que o Debug do Delphi não foi capaz de interpretar um valor em Tempo real... (isso pode ocorrer dependendo do tipo de variável) A imagem de baixo, mostra que você não está informando valores corretos para o comando "Campos CNPJValue Inválido"

O ACBrTEFD usa a sua aplicação para efetuar as perguntas e as operações com o ECF (através de Eventos)... Então sua aplicação está a par de tudo que o TEFD está tentando fazer... Em: DoExibeMsg( opmYesNo, CACBrTEFD_Erro_ECFNaoResponde )... você poderia ligar um Flag indicando o motivo do cancelamento... Em ComandarECF(opeCancelaCupom) você lê o valor do Flag, setado anteriormente, e grava o motivo do cancelamento...

Não fui capaz de compreender o seu post... Por favor poste um código simples para exemplificar o seu problema...

Eu apenas posso reproduzir o problema usando o SATTeste.exe... Se você quer que eu analise, por favor forneça passos de como reproduzir o problema, usando o SATTeste.exe... Para carregar o XML vc pode usar... procedure TForm1.MenuItem15Click(Sender: TObject); begin OpenDialog1.Filter := 'Arquivo XML|*.xml'; if OpenDialog1.Execute then begin ACBrSAT1.CFe.LoadFromFile( OpenDialog1.FileName ); mRecebido.Lines.Text := ACBrSAT1.CFe.GerarXML() ; PageControl1.ActivePage := tsRecebido; end ; end;

Não ficou claro o que vc quis dizer... Há algum Bug ? Se SIM, o que está errado ? como seria o correto ? Você testou com o SATTeste.exe ?

Até onde eu sei não existe tal emulador

Estive trabalhando na classe ACBrECFEscECF por esses dias, e notei alguns comportamentos estranhos... e peguei um bug na detecção do estado de pagamento... Acredito que as modificações abaixo podem resolver o problema desse post... Favor atualizar e testar

Opa... analisando o código, vi que realmente foi acidentalmente introduzido um bug na detecção do estado "estPagamento", após a Subtotalização... Apliquei as seguintes correções no SVN..

Sei que o Post é muito muito antigo... mas acabei caindo no mesmo problema... e implementei uma maneira de permitir configurar o "StoreLocation" na CAPICOM... Porém as mudanças são apenas para o "trunk2" Exemplo de uso: procedure TForm1.sbtnGetCertClick(Sender: TObject); begin if (ACBrNFe1.SSL.SSLClass is TDFeCapicom) then TDFeCapicom(ACBrNFe1.SSL.SSLClass).StoreLocation := CAPICOM_LOCAL_MACHINE_STORE; edtNumSerie.Text := ACBrNFe1.SSL.SelecionarCertificado; end;

O ACBrECF irá sinalizar estado de pagamento... devido o flag "fsEmPagamento := True " da rotina acima... Porém ele não persiste essa informação... ou seja, se você derrubar a aplicação, na próxima carga, ela irá solicitar o estado ao ECF... que informará como "ecfVenda"

Verifique se: ACBrSATExtratoESCPOS1.Mask_vUnCom = '0.000'

Seus fontes estão atualizados ?? Esse modelo (EscEcf ou 09/09) realmente procede dessa maneira... a Subtotalização sem desconto ou acréscimo é ignorada... e o ECF só entra em modo Pagamento, após receber o primeiro comando de pagamento... porém no ACBrECFEscEcf, há um Flag interno, que sinaliza com o estado de pagamento, após a subtotalização... procedure TACBrECFEscECF.SubtotalizaCupom(DescontoAcrescimo: Double; MensagemRodape : AnsiString ); begin fsEmPagamento := True ; if DescontoAcrescimo = 0 then exit ; with EscECFComando do begin CMD := 29 ; AddParamInteger( ifthen(DescontoAcrescimo < 0,0,1) ); AddParamInteger( 1 ); AddParamDouble( abs(DescontoAcrescimo) ); end ; EnviaComando ; RespostasComando.AddField( 'SubTotal', EscECFResposta.Params[0] ); SalvaRespostasMemoria(False); end;

Não.. todos os componentes do Projeto ACBr são multiplataforma e MultiIDE... Significa apenas, que ninguém ainda teve tempo hábil, de sincronizar as modificações que fiz nos Demos em Lazarus, para os Demos em Delphi...

4,2 x 4,2 cm correto ? Pelo que notei, na legislação poderia até ser menor... (20mm X 20mm) Notei que a Largura do Módulo, atualmente está fixa nos fontes... vou remover isso, assim seria possível configurar a largura no PosPrinter...

Humm.. acho que o Demo em Delphi ainda não foi atualizado... Eu trabalho apenas com o Lazarus / FPC.... O Demo que consta no fórum, foi compilado com Lazarus

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]".

RLibWinD2007vcl deveria se o Package do Fortes para versão do Seu Delphi... Se você conhece o nome do Package que o Fortes está usando, é mais simples alterar o nome no arquivo DPK do ACBr