automacaosamos

O erro é que o tempo limite da operacao foi atingido

Olá Estou tentando mandar nota eletronica na cidade Mossoro - RN mais esta dando seguinte erro. Segue em Anexo Alguem saberia me dizer o pq?

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?

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!

Alguem Sabe se tem a opcao pro banco safra o acbrboleto?

Nao tem como usa quick report....pq antes o acbr boleto usa o quick....

Não esta preenchido....eu preencho com oque? onde fica este arquivo fr3??

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

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

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.

Ola! Alguem poderia me ajudar dando um exemplo de como mando a contingencia em minas? eu mando do seguinte teContingencia (Contingencia Normal): //*********Nas configuracoes do componente: if F_DATMOD.TB_CADEMP.FindField('EMPSNF').AsString = 'Con' then begin if F_DATMOD.TB_CADEMP.FindField('EMPTNF').AsString = 'SCAN' then ACBrNFe1.Configuracoes.Geral.FormaEmissao := teSCAN else if F_DATMOD.TB_CADEMP.FindField('EMPTNF').AsString = 'DPEC' then ACBrNFe1.Configuracoes.Geral.FormaEmissao := teDPEC else ACBrNFe1.Configuracoes.Geral.FormaEmissao := teContingencia; dxBarLargeButtonBuscar.ButtonStyle := bsDropDown; dxBarLargeButtonBuscar.DropDownMenu := dxBarPopupMenuEnvia; end else ACBrNFe1.Configuracoes.Geral.FormaEmissao := teNormal; //*********Nas configuracoes da Nota: Ide.natOp := 'VENDA'; Ide.nNF := 19/11/2012; Ide.cNF := 19/11/2012; if F_DATMOD.TB_CADEMP.FindField('EMPSNF').AsString = 'Con' then begin Ide.dhCont := Date; Ide.xJust := 'SITE DA RECEITA FORA DE SERVICO'; if F_DATMOD.TB_CADEMP.FindField('EMPTNF').AsString = 'SCAN' then begin Ide.tpEmis := teSCAN; Ide.serie := 999; end else if F_DATMOD.TB_CADEMP.FindField('EMPTNF').AsString = 'DPEC' then begin Ide.tpEmis := teDPEC; Ide.serie := 1; end else begin Ide.tpEmis := teContingencia; Ide.serie := 1; end; end else begin Ide.tpEmis := teNormal; Ide.serie := 1; end; Ide.serie := 1; Ide.modelo := 55; Ide.dEmi := 19/11/2012; Ide.dSaiEnt := 19/11/2012; Ide.tpAmb := taHomologacao; Ide.finNFe := fnNormal; Ide.tpImp := tiRetrato; Ide.verProc := '2.0.0.0'; O retorno é assim: Uma Conexao com o servidor nao pode ser estabeleciada Alguem poderia por favor me ajudar... Desde Ja agradeco.

Olha estou com o erro da imagem Eu to usando Windows Server 2008 64bts via terninal server......local funciona, mais pelo terminal server da o erro da imagen....alguem saberia me dizer o pq disso?? Obrigado

Galera, resolvi ajudar um pouco, separei um Layout por Blocos, pra não ficar mais confuso do que já é... vou anexar aqui pra vocês, espero que ajude a terminar esse Sped Pis Cofins, que ta me deixando mais louco que o Bozo. Blocos_Separados_0_1_9_A_C_D_F_M.rar

Galera..1000 perdoes..deu certo aqui..dessa forma ai deu certo.. Obrigado mesmo assim!

Boa tarde, estou com o mesmo problema, mas minha situação é Venda. a CST que precisa usar do PIS e do COFINS é 01. vou anexar o XML da nota. Como devo proceder nesse caso? 35111101450366000125550010000033481000033486-NFe.xml

entao, eu acho que vou ter que fazer um relatorio gerencial, então como ele é flexivel, da pra fazer como um tipo de copia do comprovante, mas obrigado pela ajuda...

não consegui entender onde poderia evocar o metodo de copia, procurei e não achei nada, se puder me ajudar agradeceria muito estou emitindo o comprovante da seguinte forma: ACBrECF.AbreNaoFiscal(''); AtualizaMemos; ACBrECF.RegistraItemNaoFiscal('03', StrToFloatDef(FloatToStr(F_CAIXABANCO.dxDBCurrencyEditTCRVLA.Value),0),'RECEBIMENTO'); ACBrECF.SubtotalizaNaoFiscal(0); if F_CAIXABANCO.dxDBCurrencyEditTCRDIN.value > 0 then ACBrECF.EfetuaPagamentoNaoFiscal('01',F_CAIXABANCO.dxDBCurrencyEditTCRDIN.Value,'',false); if F_CAIXABANCO.dxDBCurrencyEditTCRCHE.value > 0 then ACBrECF.EfetuaPagamentoNaoFiscal('02',F_CAIXABANCO.dxDBCurrencyEditTCRCHE.Value,'',false); ACBrECF.FechaNaoFiscal('Nome......: ' + StrLeft(F_CAIXABANCO.DBEditCLINOM.Text,36) + #10 + 'Codigo....: ' + F_CAIXABANCO.dxDBEditTCRCLI.Text + ' Obs: ' + StrLeft(F_CAIXABANCO.dxDBEditTCROB1.Text,30) + #10 + 'Vencimento: ' + F_CAIXABANCO.dxDBDateEditTCRVCT.Text + ' Docto: ' + F_CAIXABANCO.dxComboTCRNUM.Text + ' Parcela: ' + F_CAIXABANCO.dxDBCurrencyEditTCRORD.Text + #10 + ' ' + ' *** OBRIGADO - VOLTE SEMPRE ***',StrToIntDef('', 0)); AtualizaMemos; Result := true;

eu consegui montar meu conprovante não fiscal tudo certo, mas agora meu cliente quer que eu imprima uma copia, desse comprovante, vi que na dll da bematechMdb tem como imprimir, mas numa achei uma forma no ACBrECF, alguem pode me ajudar ?? obrigado

eu estou com o seguinte problema num consegui resolver ainda Build [Warning] ACBrReg.pas(54): Unit 'FileCtrl' is specific to a platform [Warning] ACBrReg.pas(127): File not found: 'ACBr.dcr' [Error] ACBrReg.pas(132): Undeclared identifier: 'TACBrGAV' [Fatal Error] ACBr_VCL.dpk(115): Could not compile used unit 'ACBrReg.pas' Search for 'TACBrTEF' C:\superlib\ACBr\Fontes\ACBrNFP\Arquivos\ACBrReg.pas(135): {$IFDEF WIN32}, TACBrTEFD, TACBrNFP {$ENDIF}

estou tendo o seguinte problema na instalação do componente ACBFNFP no delphi7 na hora de compilar da a sequinte mensagem Build [Warning] ACBrReg.pas(54): Unit 'FileCtrl' is specific to a platform [Warning] ACBrReg.pas(127): File not found: 'ACBr.dcr' [Error] ACBrReg.pas(132): Undeclared identifier: 'TACBrGAV' [Fatal Error] ACBr_VCL.dpk(115): Could not compile used unit 'ACBrReg.pas' Search for 'TACBrTEF' C:\superlib\ACBr\Fontes\ACBrNFP\Arquivos\ACBrReg.pas(135): {$IFDEF WIN32}, TACBrTEFD, TACBrNFP {$ENDIF} alguem poderia me ajudar obrigado