Ir para conteúdo
  • Cadastre-se

automacaosamos

Membros
  • Total de ítens

    111
  • Registro em

  • Última visita

Tudo que automacaosamos postou

  1. Olá instalei meu certificado A1 no windows2012/64, num servidor Citrix configurei na aplicação a trinca: ================================= SSLCryptLib := cryWinCrypt SSLHttpLib := httpWinHttp SSLXmlSignLib := xsLibXML2 NFE 4.0 Delphi Tokyo/32 Estou tendo esse erro: =========================================== WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. Erro Interno: 12029 Erro HTTP: 0 Erro: Requisição não enviada. Erro: 12029 - Conexão com o Servidor falhou Alguem passou por isso ?? No windows10/64 Não tenho nenhum problema: obrigado cido
  2. Como poderia gerar e transmitir uma nota eletronica em um AppServer DataSnap na nuvem, sem precisar instalar o certificado A1 no cloud meu cliente quer assim, e usa o certificado A3 que fica instalado na maquina local. meu aplicativo é restfull, com base de dados na nuvem, o que faço e ter instalado localmente um servidor em backgroud que recebe um JSON e envia a nota localmente onde o certificado esta instalado. Ele não quer mais deixa o certificado A3 espetado na maquina. se fosse A1 não teria problema porque bastaria estar instalado no CLOUD. é possível ?? obrigado
  3. Olá Pessoal. Alguem saber que tipo de certificado digital compro para usar no mORMot pra receber requisições AJAX via HTTPS ? Que tipo compro ? Como instalo ele no windows ? Se tiverem um exemplo de implementacao no mORMot agradeço. Uso Delphi Tokyo Trial + Mormot Obrigado cido
  4. automacaosamos

    SAT LAYOUT 00.07

    Setei o componente : .AcBrSAT.Config.infCFe_versaoDadosEnt := 0.07; usando o ACBrSAT.ConsultarStatusOperacional; ele me devolve no VER_LAYOUT o valor 00.07 porem quando gero o xml da venda ele devolve: <?xml version="1.0" encoding="UTF-8"?> <CFe> <infCFe versaoDadosEnt="0.00"> <ide> nao consigo setar a versaoDadosEnt de jeito nenhum alguem já passou por isso ?? Obrigado
  5. AGORA NAO ACEITA MAIS ... with Registro0000New do begin COD_VER := vlVersao109; COD_FIN := raOriginal; qual seria a forma correta agora em 2017 ?? atualizei pra ultima versao nao compila mais e apresenta o erro Build [Error] Undeclared identifier: 'vlVersao109' [Error] Incompatible types: 'ACBrEFDBloco_0.TACBrCodFin' and 'U_CONSULTAS.TACBrCodFin' [Error] Undeclared identifier: 'pfPerfilB' [Error] Undeclared identifier: 'atOutros' obrigado
  6. Nota(s) não confirmadas: 9741->Rejeição: Percentual do ICMS Interestadual para a UF de destino difere do previsto para o ano da Data de Emissão [nItem:1] AcBrNFE delphi Berlin.... alguem tá teve esse erro, ao enviar uma NFE para o estado do ACRE com cfop 6.108 ?? não achei nada que explicasse bem obrigado
  7. puts... não vi isso... obrigado
  8. Tinha um certificado A1 e consegui gerar o codigo de vinculacao normalmente com "Assinador - CertificadoUI.exe " agora troquei para certificado A3 e exportei pra BASE 64 fiz o upload dele no meu navegador, etc.. e tentei gerar o SignAC com diversos geradores, e alguma falam que servem para A3, todos geram o codigo normalmente mas quando faço a validação no SGR-SAT da a mensagem : "Código de vinculação é invalido" alguem tem alguma ideia do que possa ser ?? obrigado
  9. Ola, estou tendo o mesmo problemas acima, usando o Delphi 7 sincronizei os fontes mas nao adiantou [2015-07-10 01:31:15.893]:TESTE EMITIDO COM SUCESSO [2015-07-10 01:31:36.722]:INICIO ASSOCIAR ASSINATURA [2015-07-10 01:31:36.737]:ASSOCIADO COM SUCESSO [2015-07-10 01:32:30.393]:ERRO: Codigo de Ativacao Invalido vcs tem alguma dica, no caso do delphi 7 ?? Obrigado
  10. Boa Tarde! Estou gerando os boletos do pelo ACBr para o banco Sicoob. Porem preciso salvar em meu banco de dados o nosso numero e o digito verificador, mas não encontrei nenhum função que me retorne estes campos. Alguém saberia me dizer como faco para pegar estes campos? Desde já agradeço.
  11. Olá Estou tentando faze uma nota de complemento de icms mais esta dando erro de forbidden (403) - Eu tentei mandar na tag finNFe := fnAjuste depois fnComplementar. Nao vai com nenhum dos dois Alguem saberia me dizer oque fazer? Dede ja agradeço
  12. Isaque Pinheiro o meu codigo é este": Abre_CadEmpSql('SELECT * FROM CADEMP WHERE ((EMPCOD = ' + QuotedStr('00001') + ') or (EMPCOD = ' + QuotedStr('00002') + ')) order by EMPCNP'); with ACBrSPEDPisCofins1.Bloco_D do begin with RegistroD001New do begin F_DATMOD.TB_CADEMP.First; while not F_DATMOD.TB_CADEMP.Eof do begin QueryMestre.Close; QueryMestre.Unprepare; QueryMestre.sql.Text := 'select caden1.*,cadtri.* from CADEN1 ' + 'join CADTRI on CADTRI.TRICOD = CADEN1.ENTTRI ' + ' where entemp = ' + QuotedStr(F_DATMOD.TB_CADEMP.FindField('EMPCOD').AsString) + ' and ENTTIP = ' + QuotedStr('NFE') + ' and ENTDTR between ' + QuotedStr(DataPonto(dxDateEditEMIPISCOF.Text)) + ' and ' + QuotedStr(DataPonto(dxDateEditATEPISCOF.Text)) + ' and ' + '((entcan <> ' + QuotedStr('C') + ') or (ENTCAN IS NULL))' + ' and ((tricfo = ' + QuotedStr('1.353') + ') OR (tricfo = ' + QuotedStr('2.353') + '))' + ' order by ENTNUM,ENTDTR '; QueryMestre.Open; if QueryMestre.IsEmpty then IND_MOV := imSemDados else begin IND_MOV := imComDados; with RegistroD010New do begin CNPJ := F_DATMOD.TB_CADEMP.FindField('EMPCNP').AsString; QueryMestre.First; M_REGISTROS := QueryMestre.RecordCount; while not QueryMestre.Eof do begin with RegistroD100New do begin IND_OPER := '0'; IND_EMIT := iedfTerceiro; COD_PART := 'F' + QueryMestre.FindField('ENTFOR').AsString; if not StrEmpty(QueryMestre.FindField('ENTNFE').AsString) then COD_MOD := '57' else COD_MOD := '08'; COD_SIT := sdfRegular; SER := QueryMestre.FindField('ENTSER').AsString; SUB := ''; NUM_DOC := QueryMestre.FindField('ENTDIG').AsString+QueryMestre.FindField('ENTNUM').AsString; CHV_CTE := QueryMestre.FindField('ENTNFE').AsString; DT_DOC := StrToDate(QueryMestre.FindField('ENTDTE').AsString); DT_A_P := StrToDate(QueryMestre.FindField('ENTDTR').AsString); TP_CT_e := '0'; CHV_CTE_REF := QueryMestre.FindField('ENTNFE').AsString; VL_DOC := QueryMestre.FindField('ENTVLN').AsFloat; VL_DESC := QueryMestre.FindField('ENTDSC').AsFloat; IND_FRT := tfPorContaDestinatario; VL_SERV := QueryMestre.FindField('ENTVLN').AsFloat; VL_BC_ICMS := QueryMestre.FindField('ENTBIC').AsFloat; VL_ICMS := QueryMestre.FindField('ENTVIC').AsFloat; VL_NT := 0; COD_INF := ''; COD_CTA := ''; end; QueryItens.Close; QueryItens.Unprepare; QueryItens.sql.Text := 'select CADEN2.*,CADPRO.*,CADTRI.*,CADSLD.* from CADEN2 ' + 'join CADPRO on CADPRO.PROCOD = CADEN2.ENTPRO ' + 'join CADTRI on CADTRI.TRICOD = CADEN2.ENTTRI ' + 'join CADSLD on CADSLD.SLDEMP = CADEN2.ENTEMP AND CADSLD.SLDPRO = CADEN2.ENTPRO' + ' where ENTEMP = ' + QuotedStr(QueryMestre.FindField('ENTEMP').AsString) + ' and ' + 'ENTTIP = ' + QuotedStr(QueryMestre.FindField('ENTTIP').AsString) + ' and ' + 'ENTNUM = ' + QuotedStr(QueryMestre.FindField('ENTNUM').AsString) + ' and ' + 'ENTSER = ' + QuotedStr(QueryMestre.FindField('ENTSER').AsString) + ' and ' + 'ENTFOR = ' + QuotedStr(QueryMestre.FindField('ENTFOR').AsString) + ' order by ENTORD '; QueryItens.Open; M_REGISTROS1 := QueryItens.RecordCount; QueryItens.First; while not QueryItens.Eof do begin with RegistroD101New do //Inicio Adicionar os Itens: begin VL_ITEM := QueryItens.FindField('ENTVLI').AsFloat; IND_NAT_FRT := nfcCompraGeraCred; CST_PIS := stpisOperCredExcRecTribMercInt; //50 VL_BC_PIS := QueryItens.FindField('ENTVLI').AsFloat; ALIQ_PIS := QueryItens.FindField('PROAPI').AsFloat; VL_PIS := MRound(QueryItens.FindField('ENTVLI').AsFloat * (QueryItens.FindField('PROAPI').AsFloat * 0.01),2); NAT_BC_CRED := bccAqServUtiComoInsumo; COD_CTA := ''; end; with RegistroD105New do //Inicio Adicionar os Itens: begin VL_ITEM := QueryItens.FindField('ENTVLI').AsFloat; IND_NAT_FRT := nfcCompraGeraCred; CST_COFINS := stcofinsOperCredExcRecTribMercInt; //50 VL_BC_COFINS := QueryItens.FindField('ENTVLI').AsFloat; ALIQ_COFINS := QueryItens.FindField('PROACO').AsFloat; VL_COFINS := MRound(QueryItens.FindField('ENTVLI').AsFloat * (QueryItens.FindField('PROACO').AsFloat * 0.01),2); NAT_BC_CRED := bccAqServUtiComoInsumo; COD_CTA := ''; end; dxfProgressBarPisCof_2.Position:= trunc((QueryItens.Recno / M_REGISTROS1)*100); QueryItens.Next; end; dxfProgressBarPisCof_3.Position:= trunc((QueryMestre.Recno / M_REGISTROS)*100); QueryMestre.Next; end; end; end; F_DATMOD.TB_CADEMP.Next; end; end; end;
  13. Ola. Estou gerando o pis e cofins mais o bloco D nao gera. Alimento ele conta dados mais nao gera. O arquivo é com matriz e filial. Alguem saberia me dizer o pq nao gera? Desde ja agradeco
  14. Era isso mesmo....nao tinha visto mais tinha um produto que estava sem o codigo ANP...Muito Obrigado Isaque Pinheiro
  15. Olá. Mando nota de lubrificantes. Mando tbm os campos que sao pedidos agora que sao cProdANP e UFcons. Mas mesmo assim ele retorna o seguinte erro : Rejeicao: CFOP de Combustivel e nao informado grupo de combustivel da NFE. Oque mais devo mandar pra nao dar erro? Desde ja agradeco
  16. O erro é que o tempo limite da operacao foi atingido
  17. Olá Estou tentando mandar nota eletronica na cidade Mossoro - RN mais esta dando seguinte erro. Segue em Anexo Alguem saberia me dizer o pq?
  18. Olá! Estou tentando emitir boleto pelo acbr mais ele nao carrega o logo do banco...eu ja informei o caminho na propriedade DirLogo mais nao aparece. Alguém saberia dizer o pq?
  19. Olá. Estou tentando gerar o Bloco P do SPED Pis Cofins....Mandei as instrucoes mas quando gera o TXT nao aparece o bloco P....Depois do Bloco C e gera o Bloco D depois o Bloco F e Bloco M, mais nao gera o Bloco P....aguem sabe me dizer o pq disso??? Segue o modo que to usando o Bloco P procedure TF_PROCESSOS.Bloco_P; VAR M_TOTVDA : Real; begin with ACBrSPEDPisCofins1.Bloco_P do begin with RegistroP001New do begin IND_MOV := imComDados; with RegistroP010New do begin CNPJ := M_EMPCNP; end; if Abre_IboSql('SELECT SAIPRO,PRONBM,SUM(SAIVLI) AS SAIVLI FROM CADSA2 JOIN CADPRO ON CADSA2.SAIPRO = CADPRO.PROCOD WHERE SAITIP = ' + QuotedStr('NFS') + ' AND SAIDTE BETWEEN ' + QuotedStr(DataPonto(dxDateEditEMIPISCOF.Text)) + ' AND ' + QuotedStr(DataPonto(dxDateEditATEPISCOF.Text)) + ' GROUP BY SAIPRO,PRONBM') then begin Abre_CadSql('SELECT SUM(SAIVLI) AS SAIVLI FROM CADSA2 WHERE SAITIP = ' + QuotedStr('NFS') + ' AND SAIDTE BETWEEN ' + QuotedStr(DataPonto(dxDateEditEMIPISCOF.Text)) + ' AND ' + QuotedStr(DataPonto(dxDateEditATEPISCOF.Text))); M_TOTVDA := F_DATMOD.TB_EXESQL.FindField('SAIVLI').AsFloat; M_REGISTROS := F_DATMOD.TB_IBOSQL.RecordCount; F_DATMOD.TB_IBOSQL.First; while not F_DATMOD.TB_IBOSQL.Eof do begin if StrContains('8527#8302#8708#8538#8544#8531#3921#8536#3919#3917#8536#3926#8518#8536#8512',copy(F_DATMOD.TB_IBOSQL.FindField('PRONBM').AsString,1,4)) then begin with RegistroP100New do begin DT_INI := StrToDate(dxDateEditEMIPISCOF.Text); DT_FIM := StrToDate(dxDateEditATEPISCOF.Text); VL_REC_TOT_EST := M_TOTVDA; COD_ATIV_ECON := RemoverEspeciais(F_DATMOD.TB_IBOSQL.FindField('PRONBM').AsString); VL_REC_ATIV_ESTAB := F_DATMOD.TB_IBOSQL.FindField('SAIVLI').AsFloat; VL_EXC := M_TOTVDA-F_DATMOD.TB_IBOSQL.FindField('SAIVLI').AsFloat; VL_BC_CONT := M_TOTVDA-(M_TOTVDA-F_DATMOD.TB_IBOSQL.FindField('SAIVLI').AsFloat); ALIQ_CONT := 1; VL_CONT_APU := ((M_TOTVDA-(M_TOTVDA-F_DATMOD.TB_IBOSQL.FindField('SAIVLI').AsFloat))*0.01) * 1; end; end; dxfProgressBar3.Position:= trunc((F_DATMOD.TB_IBOSQL.Recno / M_REGISTROS)*100); F_DATMOD.TB_IBOSQL.Next; end; end; end; end; end; Desde ja Agradeço!
  20. Alguem Sabe se tem a opcao pro banco safra o acbrboleto?
  21. Nao tem como usa quick report....pq antes o acbr boleto usa o quick....
  22. Não esta preenchido....eu preencho com oque? onde fica este arquivo fr3??
  23. Estou com o seguinte erro ao imprimir: caminho do arquivo de impressao do boleto nao assinalado Como resolver alguem sabe me dizer por favor... Segue o erro
  24. Então o contador da empresa ta ficando doido. Ele que me disse isso. Vc pode me manda o link deste manual ai fazendo favor? Pq ele me mando manual da nota em contingencia e tem esta opcao normal la. Obrigado
  25. Isso ate que funciona, mais não é meu caso usar a opção SCAN. Preciso usar a opção contingencia normal. Se souber de algo agradeço. Mais mesmo assim obrigado darlananogueira.
×
×
  • 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...