Hetosoft Sistemas

es a questao
 
  ACBrNFe1.EventoNFe.LerXML(OpenDialog1.FileName);  da erro ao imprimir
   ACBrNFe1.EventoNFe.LerXMLFromString(OpenDialog1.FileName);da erro de is not a valid integer value
 
 
isso nao no meu sistema usando o demo sempre testo no demo para depois no meu, mais tambem no meu soft da o mesmo erro,
sabendo que tenho
51130503953552000102550010000000311000000310-NFe
511305039535520001025500100000003110000003101101101-procEventoNFe
 
 
o que eu fiz pra resolver nada hehehe, so atualiza as fontes do acbr que ja tem no demo acbrnfe a opcao de NFC-e
e pronto nao modifiquei nada no fonte, deu certinho
obrigado pela atencao fique com Deus.
t+

Varzea grande( ISS.NET ) so usar o Gerar e Enviar Lote

Sim ronei ta 100%, vou te mostra minha configuracao para homologacao ok
 
 
 
procedure TfrmDemo_ACBrNFSe.btnGerarEnviarLoteClick(Sender: TObject);
var
 vAux, vNumLote : String;
begin
 if not(InputQuery('Gerar e Enviar Lote', 'Numero do RPS', vAux))
  then exit;

 if not(InputQuery('Gerar e Enviar Lote', 'Numero do Lote', vNumLote))
  then exit;

 ACBrNFSe1.NotasFiscais.Clear;
 GerarNFSe(vAux);


 ACBrNFSe1.Enviar(vNumLote);


    Memo1.Lines.Add( ACBrNFSe1.WebServices.RecepcaoLoteRps );
    Memo1.Lines.Add( ACBrNFSe1.WebServices.ConsLote.Protocolo );
    Memo1.Lines.Add( ACBrNFSe1.WebServices.ConsSitLote.Protocolo );


    Memo1.Lines.Add( ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo );
    Memo1.Lines.Add( DateToStr( ACBrNFSe1.NotasFiscais.Items[0].NFSe.dhRecebimento ) );
    Memo1.Lines.Add( ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero );
    Memo1.Lines.Add( ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao );
 
 
 
--------------------------------------------------------------------------------------
 
procedure TfrmDemo_ACBrNFSe.GerarNFSe(NumNFSe: String);
var
 ValorISS: Double;
begin
 ACBrNFSe1.NotasFiscais.Clear;

 with ACBrNFSe1 do
  begin
   NotasFiscais.NumeroLote:='0001';

   with NotasFiscais.Add.NFSe do
    begin
     IdentificacaoRps.Numero := FormatFloat('#########0', StrToInt(NumNFSe));

     // Para o provedor ISS.NET em ambiente de Homologação mudar a série para '8'
     IdentificacaoRps.Serie := '8';

     // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom );
     IdentificacaoRps.Tipo := trRPS;

     DataEmissao := Date;

     // TnfseNaturezaOperacao = ( noTributacaoNoMunicipio, noTributacaoForaMunicipio, noIsencao, noImune, noSuspensaDecisaoJudicial, noSuspensaProcedimentoAdministrativo );
     NaturezaOperacao := noTributacaoNoMunicipio;
//     NaturezaOperacao := noTributacaoNoMunicipio51;

     // TnfseRegimeEspecialTributacao = ( retNenhum, retMicroempresaMunicipal, retEstimativa, retSociedadeProfissionais, retCooperativa, retMicroempresarioIndividual, retMicroempresarioEmpresaPP );
//     RegimeEspecialTributacao := retNenhum;
     RegimeEspecialTributacao := retMicroempresaMunicipal;

     // TnfseSimNao = ( snSim, snNao );
     OptanteSimplesNacional := snSim;

     // TnfseSimNao = ( snSim, snNao );
     IncentivadorCultural := snSim;

     // TnfseSimNao = ( snSim, snNao );
     // snSim = Ambiente de Produção
     // snNao = Ambiente de Homologação
     Producao := snNao;

     // TnfseStatusRPS = ( srNormal, srCancelado );
     Status := srNormal;

     (* Usando quando o RPS for substituir outro
     RpsSubstituido.Numero := FormatFloat('#########0', i);
     RpsSubstituido.Serie  := 'UNICA';
     // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom );
     RpsSubstituido.Tipo   := trRPS;
     *)

     Servico.Valores.ValorServicos          := 100.00;
     Servico.Valores.ValorDeducoes          := 0.00;
     Servico.Valores.ValorPis               := 0.00;
     Servico.Valores.ValorCofins            := 0.00;
     Servico.Valores.ValorInss              := 0.00;
     Servico.Valores.ValorIr                := 0.00;
     Servico.Valores.ValorCsll              := 0.00;

     // TnfseSituacaoTributaria = ( stRetencao, stNormal, stSubstituicao );
     // stRetencao = snSim
     // stNormal   = snNao
     Servico.Valores.IssRetido              := stNormal;

     Servico.Valores.OutrasRetencoes        := 0.00;
     Servico.Valores.DescontoIncondicionado := 0.00;
     Servico.Valores.DescontoCondicionado   := 0.00;

     Servico.Valores.BaseCalculo            := Servico.Valores.ValorServicos -
                                               Servico.Valores.ValorDeducoes -
                                               Servico.Valores.DescontoIncondicionado;
     Servico.Valores.Aliquota               := 2.00;

     if Servico.Valores.IssRetido = stNormal
      then begin
       ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota;
       ValorISS := 2.00;

       // A função RoundTo5 é usada para arredondar valores, sendo que o segundo
       // parametro se refere ao numero de casas decimais.
       // exemplos: RoundTo5(50.532, -2) ==> 50.53
       // exemplos: RoundTo5(50.535, -2) ==> 50.54
       // exemplos: RoundTo5(50.536, -2) ==> 50.54

       Servico.Valores.ValorIss       := RoundTo5(ValorISS, -2);
       Servico.Valores.ValorIssRetido := 0.00;
      end
      else begin
       ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota;
       ValorISS := 2.00;
       
       Servico.Valores.ValorIss       := 0.00;
       Servico.Valores.ValorIssRetido := RoundTo5(ValorISS, -2);
      end;

     Servico.Valores.ValorLiquidoNfse := Servico.Valores.ValorServicos -
                                         Servico.Valores.ValorPis -
                                         Servico.Valores.ValorCofins -
                                         Servico.Valores.ValorInss -
                                         Servico.Valores.ValorIr -
                                         Servico.Valores.ValorCsll -
                                         Servico.Valores.OutrasRetencoes -
                                         Servico.Valores.ValorIssRetido -
                                         Servico.Valores.DescontoIncondicionado -
                                         Servico.Valores.DescontoCondicionado;

     Servico.ItemListaServico         := '105'; //'01.07';

     // Para o provedor ISS.NET em ambiente de Homologação
     // o Codigo CNAE tem que ser '6511102'
     Servico.CodigoCnae                := '6511102';
     Servico.CodigoTributacaoMunicipio := '50000024';  //VARZEA GRANDE - MT pegue da sua cidade
     //Servico.CodigoCnae                := '6202300'; // Informação Opcional
     //Servico.CodigoTributacaoMunicipio := '7221400'; //'118879';
     Servico.Discriminacao             := 'Aluguel de SoftWare'; //'discriminacao';


     // Para o provedor ISS.NET em ambiente de Homologação
     // o Codigo do Municipio tem que ser '999'
     //Servico.CodigoMunicipio := edtCodCidade.Text;
     Servico.CodigoMunicipio :='999';

     // Informar A Exigibilidade ISS para fintelISS [1/2/3/4/5/6/7]
     Servico.ExigibilidadeISS := exiExigivel;
     
     // Informar para Saatri
     Servico.CodigoPais := 1058; // Brasil
     Servico.MunicipioIncidencia := StrToIntDef(edtCodCidade.Text, 0);
     
     with Servico.ItemServico.Add do
      begin
       Descricao     := 'SERVICO 1';
       Quantidade    := 1;
       ValorUnitario := 100.00;
      end;

     Prestador.Cnpj               := edtEmitCNPJ.Text;
     Prestador.InscricaoMunicipal := edtEmitIM.Text;

     // Para o provedor ISSDigital deve-se informar também:
     Prestador.Senha        := 'senha';
     Prestador.FraseSecreta := 'frase secreta';
     Prestador.cUF          := 33;

     Tomador.IdentificacaoTomador.CpfCnpj            := '03953552000102';
     //Tomador.IdentificacaoTomador.InscricaoMunicipal := '20370';
     Tomador.IdentificacaoTomador.InscricaoMunicipal := '';

     Tomador.RazaoSocial := 'NERY E ANDRADE NERY LTDA - ME';

     Tomador.Endereco.Endereco        := 'RUA PRINCIPAL';
     Tomador.Endereco.Numero          := '100';
     Tomador.Endereco.Complemento     := 'APTO 11';
     Tomador.Endereco.Bairro          := 'CENTRO';
     Tomador.Endereco.CodigoMunicipio := edtCodCidade.Text;
     Tomador.Endereco.UF              := edtEmitUF.Text;
     Tomador.Endereco.CEP             := edtEmitCEP.Text;

     Tomador.Contato.Telefone := '1122223333';
     Tomador.Contato.Email    := '[email protected]';

     (* Usando quando houver um intermediario na prestação do serviço
     IntermediarioServico.RazaoSocial        := 'razao';
     IntermediarioServico.CpfCnpj            := '00000000000';
     IntermediarioServico.InscricaoMunicipal := '12547478';
     *)

     (* Usando quando o serviço for uma obra
     ConstrucaoCivil.CodigoObra := '88888';
     ConstrucaoCivil.Art        := '433';
     *)
    end;

  end;

end;
 
----------------------------------------------------
 
Qualqer duvida to ai  blz.

eu utilizei a pesquisa e nao tinha nenhim sobre nfs-e
mais o erro esta aqui
D:\All_Delphi\ACBr_7\Fontes\ACBrNFSe\DANFSE_QR3
so substituir
D:\All_Delphi\ACBr_7\Fontes\ACBrNFSe\

if Form_NFe.edtEmitCNPJ.Text<>Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF then
    begin

       Form_NFe.ACBrNFe1.DANFE.Logo:='';

    end;

ja resolvir, mais vamos lar,
no teste 7 pre homologacao clisitef
pede para vc coloca data de vencimento invalida
e depois cancela transacao,
neste momento de cancelar a transacao em vem de aperta ESC apertei Alt+C  pois coloquei &Cancelar no botao cancelar,
ai trava tudo ,
mais tirei o &Cancelar e resolvir.

brigadoooooo
os eventos do form OnObtemCampo
nao estavaao linkado ao componetes.

Veja que no roteiro, os campos Data da transação: e NSU: aparecem em todos os quadros de testes, mas isso não significa que todas operações irão gerar NSU... ainda mais uma transação que não foi executada....
 
ja compriendi, NSU nao é a msn, e sim o registro no relatorio sitef.
eu pesanva que tinha que aperecer
Data
da transação: 15/06/2009
NSU: 150001
iqual o tef discado.