[Sat: "satdinamico_Cdecl" Ou "satdinamico_Stdcall".]

ok obrigado

[Sat: "satdinamico_Cdecl" Ou "satdinamico_Stdcall".]

Daniel, qual o valor que vc aconselha colocar em pagina de codigo?

[Imprimir Inutilização De Nfe]

ok, obrigado

[Imprimir Inutilização De Nfe]

Olá

 

Estamos tentando imprimir a inutilização da NFe, e percebemos que existe o comando para quem utiliza o componente.

Mas nós utilizamos o ACBrNFeMonitor2 e não encontramos o comando citado em outros tópicos.

É isso mesmo? No ACBrNFeMonitor2 ainda não foi implementado ?

 

Obrigado

Carlo

 

[Acbrnfemonitor Parou De Cancelar As Nfes?]

Eu também estava com esse problema. No tipo de Cancelamento não estava marcado nenhum dos 2 campos. Marquei por EVENTO, fechei o monitor e abri novamente e deu certo.

[Erro Na Criacao Do Bloco C113]

Olhando o programa de exemplo eu entendi, o C113 tem que ficar dentro do C110

Vou arrumar aqui

Obrigado

[Erro Na Criacao Do Bloco C113]

Está ocorrendo um erro na criação do bloco C113 : List Index out of bounds (-1)

 

Dentro do meu programa ele está sendo gerado logo apos o C110 e antes do C114

Esses 2 ultimos estão funcionando normalmente.

 

Já o C113 dá o erro nessa linha :

   Result := FRegistroC001.RegistroC100.Items[C100Count].RegistroC110.Items[C110Count].RegistroC113.New;

 

Alguem pode me ajudar ?

Obrigado

 

[Sped Fiscal Registro H010 Decimais]

ok Isaque obrigado

[Sped Fiscal Registro H010 Decimais]

Isaque, alterei a procedure que você mecionou WriteRegistroH010 nos campos QTD e VL_UNIT e ficou assim :

               LFill( QTD, 0, 3, false, '0', '#0.000' ) +
               LFill( VL_UNIT, 0, 6 , false, '0', '#0.000000') +

 

Mas isso resolveu parcialmente, porque a função LFILL é do tipo currency com precisão de 4 decimais.

Já a precisão do campo VL_UNIT é de 6 decimais.

Será que se mudarmos a função LFILL para double não vai dar nenhum efeito colateral eu outros pontos do componente?

 

[Sped Fiscal Registro H010 Decimais]

Olá

Hoje detectamos que no registro h010 no campo VL_UNIT no layout tem 6 decimais, mas quando gera o TXT está com 2 decimais.

Existe alguma propriedade que eu mudo para gerar na qtde de decimais correta ou teria que arrumar o componente do sped fiscal ?

Obrigado

 

 

[Registro C420]

Você tem razão, vou entrar em contato com eles. Obrigado

[Registro C420]

Olá Pessoal,

Existe um programa da Bematech chamado WinMfd2 que estamos utilizando para gerar o bloco do sped fiscal referente aos dados da impressora fiscal.

Quando existe algum cancelamento de cupom fiscal já emitido, o winmfd2 gera o registro C420 e C460 corretamente como abaixo

 

|C420|Can-T|59,55|||

|C460|2D|02|193469|||||||

Mas existem alguns casos que a impressora fiscal gera o registro C460 mas não gera o C420

Isso acontece com a impressora Bematech e Daruma

Nessa caso quando vai passar no validador do Sped, gera um erro e nossos clientes tem que inserir o registro C420 manualmente dentro do próprio validador

Alguem sabe como resolver esse problema?

abraços

 

[Sngpc]

^{Acho melhor deixar passar alguns dias antes de tentar arrumar o programa para enviar por WebService. Já voltaram o WebService ao modo antigo novamente.}

^{Infelizmente eles são muito desorganizados e os desenvolvedores que acabam sendo penalizados com a incompetência deles.}

[Sngpc]

Que a Anvisa iria ferrar com todos os programadores isso eu já sabia.
Ontem tentando transmitir o Inventario de um cliente, depois de muito tentar e não conseguir pelo programa,
acabei enviando diretamente pelo site e deu certo.
Voltando ao programa descobri que o webservice do SNGPC de homologação está diferente do de produção

Homologação : http://homologacao.anvisa.gov.br/sngpc/webservice/sngpc.asmx?WSDL

Produção : http://sngpc.anvisa.gov.br/webservice/sngpc.asmx?WSDL

Tentando adequar o programa para envio, a aplicação trava, então estou tentando fazer um procedimento mais simples que é
checar se a senha do usuário está correta
Mesmo assim não consegui fazer funcionar, a aplicação trava.
Postei aqui o código para que os colegas com mais experiência consigam ajudar.

procedure TSge078b.BitBtn1Click(Sender: TObject);
var
  Ws: SngpcSoap;
  ChecaUsu: ValidarUsuario;
  MensRet: ValidarUsuarioResponse;
begin
  ChecaUsu:= ValidarUsuario.Create;
  ChecaUsu.Email:= '[email protected]';
  ChecaUsu.Senha:= 'senha';
  MensRet:= ValidarUsuarioResponse.Create;
  Ws:= GetSngpcSoap;
  try
    MensRet:= Ws.ValidarUsuario(ChecaUsu);
    Mensagem(MensRet.ValidarUsuarioResult);
    Self.Close;
  except
    Mensagem('Não foi possível enviar o arquivo XML. Verifique se sua conexão com a internet está funcionando');
  end;
end;