Ir para conteúdo
  • Cadastre-se

Valtenci Santos

Membros
  • Total de ítens

    38
  • Registro em

  • Última visita

Posts postados por Valtenci Santos

  1. Ola, estou com algumas duvidas em relação ao MFE - CE, e gostaria de esclarecer.:

     

    1a  - Para testar o meu PDV tenho que ter um modulo MFE(no nome da minha Software house) ou pode ser de um cliente meu ?

    2a - Tenho que ter um modulo MFE(no nome da minha Software house) ou pode ser de um cliente meu  para Homologar ?

    Obrigado desde ja a quem poder me orientar.

  2. Ola Boa noite, estou emitindo uma NFe e na impressao do Danfe, nao esta mostrando os campos de PIS e COFINS, estou usando o compoente FortesReport, no XML gerado, tem todos os valores de pis, cofins, e etc, mais na impressao do danfe nao esta saido/mostrando.

     

     

     

    desde ja agradeço.

  3. Em 01/12/2018 at 09:36, Amarildo de Matos disse:

    Bom dia..

    consulta contribuinte do Estado do RN, )

    me diz uma coisa , contribuinte de outro estado funciona?

    me passe os comandos que voce esta usando, e os dados do contribuinte para testar..

    blz?

    tenha um otimo sabado.

    ola, estou usando o codigo abaixo que peguei nos exemplos do ACBr

    procedure ButtonClick(Sender: TObject);
     var
     UF, Documento : String;
    begin
    // use como exemplo
    // UF :='PE';
    // Documento :='09581721000298'; 

    // UF :='RN';
    // Documento :='03752712000155';

     if not(InputQuery('WebServices Consulta Cadastro ', 'UF do Documento a ser Consultado:',    UF)) then
        exit;
     if not(InputQuery('WebServices Consulta Cadastro ', 'Documento(CPF/CNPJ)',    Documento)) then
        exit;
      Documento :=  Trim(OnlyNumber(Documento));

      ACBrNFe1.WebServices.ConsultaCadastro.UF  := UF;
      if Length(Documento) > 11 then
         ACBrNFe1.WebServices.ConsultaCadastro.CNPJ := Documento
      else
         ACBrNFe1.WebServices.ConsultaCadastro.CPF := Documento;
      ACBrNFe1.WebServices.ConsultaCadastro.Executar;

      MemoResp.Lines.Text := ACBrNFe1.WebServices.ConsultaCadastro.RetWS;
      memoRespWS.Lines.Text := ACBrNFe1.WebServices.ConsultaCadastro.RetornoWS;


      MemoDados.Lines.Add('');
      MemoDados.Lines.Add('Consulta Cadastro');
      MemoDados.Lines.Add('versao: ' +ACBrNFe1.WebServices.ConsultaCadastro.versao);
      MemoDados.Lines.Add('verAplic: ' +ACBrNFe1.WebServices.ConsultaCadastro.verAplic);
      MemoDados.Lines.Add('cStat: '    +IntToStr(ACBrNFe1.WebServices.ConsultaCadastro.cStat));
      MemoDados.Lines.Add('xMotivo: '  +ACBrNFe1.WebServices.ConsultaCadastro.xMotivo);
      MemoDados.Lines.Add('DhCons: ' +DateTimeToStr(ACBrNFe1.WebServices.ConsultaCadastro.DhCons));

    end;

     

    teste dois estados e pessiste o erro.

  4. Em 23/11/2018 at 05:05, Amarildo de Matos disse:

    bom dia.. 

    tem como mandar para nos o xml gerado, e os logs, para os consultores analisarem?..

     

    O Problema e esse nao gera nenhum retorno, conforme print em anexo

    img.png

  5. Ola, usando  o ACBrNFe_demo, verificando o botao Importar TXT/XML, esta mostrando os dados do XML em um Memo perfeitamente, minha duvida e:

    como faço para que o mesmo puxe varios xml ao mesmo tempo, em vez de so um como esta atualmente.

     

     

    quero puxar varios xml e mostrar no Memo.

     

     

    desde ja agradeço a todos.

  6. Ola Boa tarde a todos, gostaria de saber qual os registos necessários para pegar do XML do NFCe para o Sped, do cupom fiscal PAF-ECF, eu sei quais são os registros, mais do XML do NFCe não estou sabendo qual registros necessário.

     

    desde ja agradeço.

     

     

  7. Ao enviar a MDFe esta me retornando o seguinte erro...

    is not a invalid integer value, (nao e um valor inteiro valido

     

     Ide.serie   := StrToInt(frmmodulo.qremitenteCERT.AsString);  <- numero de serie do certificado (00D1932E)

     

    ja troquei na tabela para string, mais continua mesmo coisa...

     

    alguem tem uma solucao ??

     

    desde ja agradeco.

  8. não entendi o que vc quis dizer em abrir o formulário em que esta o componente

    abri o formulário q esta o componente, compilei e continua o mesmo erro.

     

    tem q referenciar essa unidade na geração do xml

  9. Ola Boa noite a todos, apos atualizar o acbr e compilar minha aplicação, ao entrar no meu modulo de emissao de nfe me deparei com a seguinte mensagem de erro.

    conforme print em anexo, la no parametro esta com False, coloquei como True e continuou o mesmo erro.

     

    como proceder neste caso.?

     

    img.png

  10. Ola boa Noite, ao enviar uma NFe ou NFCe, apos retorno OK, aparece o preview, com a NFe ou NFCe, no cantinho direito, tem um icone de uma impressora para que o usuario possa imprimir, ao clicar nesse icone, a impressao ja começa, ai que esta a minha duvida, tem alguma configuração para abrir a caixa de escolha listando as impressoras ao qual eu quero imprimir ???, seja a padrao ou uma em rede ?

  11. Ola, estou implantando o calculo de Fundo de combate a pobreza na meu NFCe, estou seguindo o exemplo do ACBRNFCe/NFe, e esta me retornando um erro.

    segue abaixo meu codigo, e o print do erro que me retorna.

    //codigo

    with Imposto do
                  begin
                    vTotTrib := (Prod.vProd * qrProdNCFE.fieldbyname('ALIQNACIONAL')
                      .Value) / 100;
                    total_trib := roundABNT(total_trib + vTotTrib, 2);

                    // simples nacional
                    if qrfilial.fieldbyname('CRT').asinteger < 3 then
                    begin
                      with ICMS do
                      begin

                        if (grid.Cell[11, i].asstring = '000') then
                          CST := cst00
                        else if (grid.Cell[11, i].asstring = '010') then
                          CST := cst10
                        else if (grid.Cell[11, i].asstring = '020') then
                          CST := cst20
                        else if (grid.Cell[11, i].asstring = '030') then
                          CST := cst30
                        else if (grid.Cell[11, i].asstring = '040') then
                          CST := cst40
                        else if (grid.Cell[11, i].asstring = '050') then
                          CST := cst50
                        else if (grid.Cell[11, i].asstring = '060') then
                          CST := cst60
                        else if (grid.Cell[11, i].asstring = '070') then
                          CST := cst70
                        else if (grid.Cell[11, i].asstring = '080') then
                          CST := cst80
                        else if (grid.Cell[11, i].asstring = '090') then
                          CST := cst90;

                        if qrProdNCFE.fieldbyname('csosn').asstring = '101' then
                          ICMS.CSOSN := csosn101
                        else if qrProdNCFE.fieldbyname('csosn').asstring = '102'
                        then
                          ICMS.CSOSN := csosn102
                        else if qrProdNCFE.fieldbyname('csosn').asstring = '103'
                        then
                          ICMS.CSOSN := csosn103
                        else if qrProdNCFE.fieldbyname('csosn').asstring = '201'
                        then
                          ICMS.CSOSN := csosn201
                        else if qrProdNCFE.fieldbyname('csosn').asstring = '202'
                        then
                          ICMS.CSOSN := csosn202
                        else if qrProdNCFE.fieldbyname('csosn').asstring = '203' then
                          ICMS.CSOSN := csosn203
                        else if qrProdNCFE.fieldbyname('csosn').asstring = '300'
                        then
                          ICMS.CSOSN := csosn300
                        else if qrProdNCFE.fieldbyname('csosn').asstring = '400'
                        then
                          ICMS.CSOSN := csosn400
                        else if qrProdNCFE.fieldbyname('csosn').asstring = '500'
                        then
                          ICMS.CSOSN := csosn500
                        else if qrProdNCFE.fieldbyname('csosn').asstring = '900'
                        then
                          ICMS.CSOSN := csosn900
                        else
                          ICMS.CSOSN := csosnVazio;

                        ICMS.pCredSN := 0;
                        ICMS.vCredICMSSN := 0;

                        ICMS.orig := oeNacional;
                        ICMS.modBC := dbiValorOperacao;
                        ICMS.vBC := 0;
                        total_base := 0;
                        ICMS.pICMS := 0;
                        ICMS.vICMS := 0;
                        total_icms := 0;
                        ICMS.modBCST := dbisMargemValorAgregado;
                        ICMS.pMVAST := 0;
                        ICMS.pRedBCST := 0;
                        ICMS.vBCST := 0;
                        ICMS.pICMSST := 0;
                        ICMS.vICMSST := 0;
                        ICMS.pRedBC := 0;

    -->Aqui       // partilha do ICMS e fundo de probreza
                        with ICMSUFDest do
                        begin
                         vBCUFDest      := 0.00;
                         pFCPUFDest     := 0.00;
                         pICMSUFDest    := 0.00;
                         pICMSInter     := 0.00;
                         pICMSInterPart := 0.00;
                         vFCPUFDest     := 0.00;
                         vICMSUFDest    := 0.00;
                         vICMSUFRemet   := 0.00;
                       end;

                     end;
     

      erro retornado no print.

     

    desde já agradeço.

    erro.png

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...