automacaosamos

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