ANT.CARLOS.SP

Olá! Então consegui resolver o problema. Depois de muita pesquisa descobri que era um recurso ou Bug do Delph-7 que teria q ser desativado para poder funcionar. Pois o codigo fontes estava 100% certo. ---------------------------------------------------- Aqui vai como consertar a Limitação do D-7 e HTTPrio ---------------------------------------------------- Analisando a sua situação eu encontrei dois bugs, um era aquele já antes informado por você "Too many parameters on method .......", esse na verdade é uma limitação no fonte do componente HTTPRIO, segue o passo-a-passo pra resolução do problema no seu componente HTTPRIO; 1- Editar o arquivo Rio.pas localizado em '.....\.....\Borland\Delphi7\Source\Soap' 2- Localizar o seguinte trecho do código e comentar as duas linhas; if BytesPushed > 252 then raise Exception.CreateFmt(STooManyParameters, [intfMD.MDA.Name]); 3- Salve o arquivo e abra o projeto, recompile, faça o teste, se continuou o bug, então feche o projeto e vá em; Tools > Environment Options, aba Library > Library Path Adicionar o diretório do SOAP pra que o Delphi ao compilar o seu projeto recompile o HTTPRIO com o código editado do HTTPRIO. Abra novamente o projeto, recompile e teste novamente.

Olá, boa tarde! Estou terminado de testar o Cte q está funcionando normalmente exeto ao gerar o Pdf. Quando mando geraro o arquivo xml para Pdf, não acontece nada. veja minhas configuraçoes: DMACBRCTE.ACBrCTe1.DACTE.PathPDF := 'C:\CTE'; DMACBRCTE.ACBrCTeDACTeQR1.PathPDF := 'C:\CTE';; DMACBRCTE.ACBrCte1.Conhecimentos.Clear; if OpenDialog1.Execute then Begin DMACBRCTE.ACBrCte1.Conhecimentos.LoadFromFile(OpenDialog1.FileName); PathCte := UpperCase(OpenDialog1.FileName); DMACBRCTE.ACBrCte1.Conhecimentos.ImprimirPDF; End; Meu QR é 7.0 de Delphi 7 A quem puder me ajudar, desde já meus agradecimentos. 100+ ANT.CARLOS/SP

Olá boa tarde! Já uso o Acbr há muito tempo. Instalei o Cte e abri-o e fiz um teste, mas ao abri-lo uma msg de erro ref. ao Quick Report é apresetada. veja a msg e alguem poderia me dizer o que está acontecendo? Consigo compilar e rodar o exemplo mas não imprimir ou visualizar. Desde já meus agradecimentos a quem puder responder. 100+ ANT.CARLOS/SP

O problema está no Horario, só atrasar 1 hora q funciona. Tbém tive o mm problema. 100+ ANT.CARLOS/SP

Olá bom dia! Ontem tbém passei a ter o mesmo problema. Antes minha XML passava assim: Veja os dois códigos: Minha XML atual e Minha XML antes Bom consegui resolver mas ainda não sei se é a regra de negócio correta. de uma apreciada e de um retorno de ok ou não. 100+ ANT.CARLOS/SP ========================== Vaja minha XML de Atual ========================== - - 00002 FILTRO OLEO MOTOR TECFIL PEL313 12345678 5102 PC 1.0000 100.0000000000 100.00 PC 1.0000 100.0000000000 10.00 1 - - - 0 102 - 999 - 50 0.00 0.00 0.00 - - 99 0.00 0.00 0.00 - - 99 0.00 0.00 0.00 - - 0.00 0.00 0.00 0.00 100.00 0.00 0.00 10.00 0.00 0.00 0.00 0.00 0.00 90.00 - 0 - - 0 100.00 10.00 90.00 - 10708 2012-03-04 90.00 - "DOCUMENTO EMITIDO POR ME OU EPP OPTANTE PELO SIMPLES NACIONAL"; "NAO GERA DIREITO A CREDITO FISCAL DE IPI."; ========================== Vaja minha XML de antes ========================== - - 00002 FILTRO OLEO MOTOR TECFIL PEL313 12345678 5102 PC 1.0000 100.0000000000 100.00 PC 1.0000 90.0000000000 10.00 1 - - - 0 102 - 999 - 50 0.00 0.00 0.00 - - 99 0.00 0.00 0.00 - - 99 0.00 0.00 0.00 - - 0.00 0.00 0.00 0.00 90.00 0.00 0.00 10.00 0.00 0.00 0.00 0.00 0.00 90.00 - 0 - - 0 100.00 10.00 90.00 - 10708 2012-03-04 90.00 - "DOCUMENTO EMITIDO POR ME OU EPP OPTANTE PELO SIMPLES NACIONAL"; "NAO GERA DIREITO A CREDITO FISCAL DE IPI."; ==========================

Olá bom dia! Fiz a importação do WSDL e gerei o Web Metodo, agora preciso saber como enviar os dados para o metodo, pois tentei fazer desta maneira não funcionou. Veja a implementação abaixo. Como enviar os dados para a função "EnviaNfe" ? 100+ ANT.CARLOS/SP ================================= Form de envio ================================= unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, wsnfe_teste, WB_DM; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var envia : EnvNfe; retorno : String; prf, usr, ctr, cnpj, cnpjn, ie, im, lgr, num, cpl : String; bai, cid, est, cep, fon, mail, dat, f1n, f1d, f1v, f2n : String; f2d, f2v, f3n, f3d, f3v, f4n, f4d, f4v, f5n, f5d, f5v, f6n, f6d : String; f6v, tem1, item2, item3, aliq1, aliq2, aliq3, val1, val2, val3, loc: String; ret, txt, val, valtrib, iss, issret, desci, desco, binss, birrf, bcsll : String; bpis, bcofins, ainss, airrf, acsll, apis, acofins, inss, irrf, csll, pis : String; cofins : String; begin envia := EnvNfe.Create; prf := ''; usr := ''; ctr := ''; cnpj := ''; cnpjn := ''; ie := ''; im := ''; lgr := ''; num := ''; cpl := ''; bai := ''; cid := ''; est := ''; cep := ''; fon := ''; mail := ''; dat := ''; f1n := ''; f1d := ''; f1v := ''; f2n := ''; f2d := ''; f2v := ''; f3n := ''; f3d := ''; f3v := ''; f4n := ''; f4d := ''; f4v := ''; f5n := ''; f5d := ''; f5v := ''; f6n := ''; f6d := ''; f6v := ''; item1 := ''; item2 := ''; item3 := ''; aliq1 := ''; aliq2 := ''; aliq3 := ''; val1 := ''; val2 := ''; val3 := ''; loc := ''; ret := ''; txt := ''; val := ''; valtrib := ''; iss := ''; issret := ''; desci := ''; desco := ''; binss := ''; birrf := ''; bcsll := ''; bpis := ''; bcofins := ''; ainss := ''; airrf := ''; acsll := ''; apis := ''; acofins := ''; inss := ''; irrf := ''; csll := ''; pis := ''; cofins := ''; //-----------------------------------------------// //...Como enviar os dados para o Web Metodo ? //-----------------------------------------------// Retorno := EnvNfe(prf, usr, ctr, cnpj, cnpjn, ie, im, lgr, num, cpl, bai, cid, est, cep, fon, mail, dat, f1n, f1d, f1v, f2n, f2d, f2v, f3n, f3d, f3v, f4n, f4d, f4v, f5n, f5d, f5v, f6n, f6d, f6v, item1, item2,item3, aliq1,aliq2, aliq3,val1, val2, val3, loc, ret, txt, val, valtrib, iss, issret, desci, desco, binss, birrf, bcsll, bpis, bcofins, ainss, airrf, acsll, apis, acofins, inss, irrf, csll, pis, cofins); ======================================== Importacao do WSDL ======================================== // ************************************************************************ // // The types declared in this file were generated from data read from the // WSDL File described below: // WSDL : C:\INTERBASE\SIS_Nfeletronica_Servico\Documentos\Promissao\wsnfe_teste.php.xml // Encoding : ISO-8859-1 // Codegen : [wfDebug,wfVerbose,wfSkipHttpBindings,wfOneOutIsReturn,wfUnwindLiteralParameters,wfMapStringsToWideStrings,wfAutoDestroyMembers,wfGenerateWarnings,wfMapArraysToClasses,wfSkipUnusedTypes,wfUseSerializerClassForAttrs,wfValidateEnumMembers,wfProcessFaults,wfProcessHeaders] // Version : 1.0 // (3/1/2012 09:01:58 - 1.33.2.5) // ************************************************************************ // unit wsnfe_teste; interface uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; type EnvNfe = class; // ************************************************************************ // // Namespace : http://www.fgmaiss.com.br/issqn/ws/wsnfe_teste.php // ************************************************************************ // EnvNfe = class(TRemotable) private Fokk: String; published property okk: String read Fokk write Fokk; end; StrEnvNfe = array of EnvNfe; // ************************************************************************ // // Namespace : http://www.fgmaiss.com.br/issqn/ws/wsnfe_teste.php // soapAction: http://www.fgmaiss.com.br/issqn/wservic ... php/EnvNfe // transport : http://schemas.xmlsoap.org/soap/http // style : rpc // binding : webserviceBinding // service : webservice // port : webservicePort // URL : http://www.fgmaiss.com.br/issqn/wservic ... _teste.php // ************************************************************************ // webservicePortType = interface(IInvokable) ['{F5E8C09B-C9AF-5E29-ED99-9829709C4046}'] function EnvNfe(const prf: String; const usr: String; const ctr: String; const cnpj: String; const cnpjn: String; const ie: String; const im: String; const lgr: String; const num: String; const cpl: String; const bai: String; const cid: String; const est: String; const cep: String; const fon: String; const mail: String; const dat: String; const f1n: String; const f1d: String; const f1v: String; const f2n: String; const f2d: String; const f2v: String; const f3n: String; const f3d: String; const f3v: String; const f4n: String; const f4d: String; const f4v: String; const f5n: String; const f5d: String; const f5v: String; const f6n: String; const f6d: String; const f6v: String; const item1: String; const item2: String; const item3: String; const aliq1: String; const aliq2: String; const aliq3: String; const val1: String; const val2: String; const val3: String; const loc: String; const ret: String; const txt: String; const val: String; const valtrib: String; const iss: String; const issret: String; const desci: String; const desco: String; const binss: String; const birrf: String; const bcsll: String; const bpis: String; const bcofins: String; const ainss: String; const airrf: String; const acsll: String; const apis: String; const acofins: String; const inss: String; const irrf: String; const csll: String; const pis: String; const cofins: String): StrEnvNfe; stdcall; end; function GetwebservicePortType(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): webservicePortType; implementation function GetwebservicePortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): webservicePortType; const defWSDL = 'C:\INTERBASE\SIS_Nfeletronica_Servico\Documentos\Promissao\wsnfe_teste.php.xml'; defURL = 'http://www.fgmaiss.com.br/issqn/wservice/wsnfe_teste.php'; defSvc = 'webservice'; defPrt = 'webservicePort'; var RIO: THTTPRIO; begin Result := nil; if (Addr = '') then begin if UseWSDL then Addr := defWSDL else Addr := defURL; end; if HTTPRIO = nil then RIO := THTTPRIO.Create(nil) else RIO := HTTPRIO; try Result := (RIO as webservicePortType); if UseWSDL then begin RIO.WSDLLocation := Addr; RIO.Service := defSvc; RIO.Port := defPrt; end else RIO.URL := Addr; finally if (Result = nil) and (HTTPRIO = nil) then RIO.Free; end; end; initialization InvRegistry.RegisterInterface(TypeInfo(webservicePortType), 'http://www.fgmaiss.com.br/issqn/ws/wsnfe_teste.php', 'ISO-8859-1'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(webservicePortType), 'http://www.fgmaiss.com.br/issqn/wservice/wsnfe_teste.php/EnvNfe'); RemClassRegistry.RegisterXSClass(EnvNfe, 'http://www.fgmaiss.com.br/issqn/ws/wsnfe_teste.php', 'EnvNfe'); RemClassRegistry.RegisterXSInfo(TypeInfo(StrEnvNfe), 'http://www.fgmaiss.com.br/issqn/ws/wsnfe_teste.php', 'StrEnvNfe'); end. ========================================

Olá! fiz uma alteracao conforme os amigos no endereco abaixo e funcionou paleativamente. http://djsystem.com.br/acbr/forum/viewtopic.php?f=6&t=1912&start=80 ------------------------ Gerador.wCampo(tcStr, 'HP13', 'dhEvento', 001, 050, 1, FormatDateTime('yyyy-mm-dd"T"hh:nn:ss',Evento.Items.InfEvento.dhEvento)+'-02:00'); ------------------------ 100+ meus agradecimentos, ANT.CARLOS/SP

Boa tarde! Estou com o seguinte problema. Estou fazendo o teste da Carta de Correção, fiz uma nota e logo fiz uma carta de correção, mas só retrna a msg 'Rejeição: A data do evento não pode ser maior que a data do processamento'. Não entendi o motivo da rejeição, pois fiz a nota hoje 28/12/11 e estou enviando uma carta de correcao nesta mm data. A quem puder ajudar desde já meus agradecimentos. 100+ ANT.CARLOS/SP Abaixo XML de retorno. --------------------------- <?xml version="1.0" encoding="utf-8"?> 35 1.00 1 2 SP_EVENTOS_PL_100 35 128 Lote de Evento Processado 2 SP_EVENTOS_PL_100 35 578 Rejeição: A data do evento não pode ser maior que a data do processamento 35111203586230000172550000000000201000000209 110110 1 2011-12-28T10:29:58-02:00 ---------------------------

Olá boa tarde! Estou implentando um aplicativo para envio de Nfs-e da cidade de Promissão mas estou com alguma dificuldade de iniciar, pois só tenho o apenas o WSDL e nenhum exemplo de XML. Já uso um Componente AcbrNfe, mas desta vez vou ter q fazer na unha o teste para depois tentar modificar o AcbrNfs-e. Abaixo segue a URL do WSDL e do LayOut do arquivo de envio. http://www.fgmaiss.com.br/issqn/wservice/wsnfe_teste.php http://www.fgmaiss.com.br/issqn/wservice/docs/layout_wsnfe.pdf 1 - Desejaria saber como devo proceder para montar o arquivo de envio dos dados ? 2 - O que vou reber no retorno ? Desde já meus agradecimentos a quem puder ajudar. 100+ ANT.CARLOS/SP

Olá boa tarde! Baixei o NFSe e outros e estou tentando instalar no Delphi-7, acontece q esta gerando uns erro ao instalar. Alguem saberia me dizero o q poder ser ? 100+ ANT.CARLOS/SP Segue anexo uma imagem do erro.

Olá boa tarde! Tenho um aplicativo q usa o ACBr-Ecf, q roda normalmente. Um cliente comprou uma MP4000 Bematech e está imprimindo os cupom normalmente, mas acontece q ao finalizar o mes tive q gerar o arquivo de N.F.Paulista usando o aplicativo Utilitário da Bematech (WinMFD) os arquivos sao gerado mas ao enviar para a SEFAZ ocorre os seguintes erro, vide abaixo. 1- Pegunto, o aplicativo comercial tem alguma coisa haver com algum erro gerado ? 2-Este erro está relacionado com o Utilitário do fabricante ? Estou recorrendo aqui pois já pedi suporte ao fabricante mas até agora nada, pois preciso descobrir o quanto antes e estou me adiantando aqui. Erros ao enviar dados para a SEFAZ. =========================== 0000000000421820590|120|Lote Processado com alertas/ERRO : Erros|16|07458051000100|JOSÉ ME****** - ME|ESCVER*****|Processamento Normal| BEJ11898.1AB|2641|A67F16FE8DA2ECE52FAA53244EC2B19BA5FD32E| |18/11/2011 16:03:43|18/11/2011 16:03:44|0||0| ERRO: Campo Data da movimentação inválida (E12) na linha 0000010 ERRO: Campo Data da emissão inválida (E12) na linha 0000010 ERRO: Campo Data de emissão inválida (E14) na linha 0000012 ERRO : Número de usuário vazio na linha 0000011 ERRO : CRZ inválido no registro E13 na linha 0000011 ERRO : Inconsistência entre CRZ e Valor acumulado no registro E13 na linha 0000011 ALERTA : Totalizador parcial inválido no registro E13 na linha 0000011 ERRO : Número de usuário vazio na linha 0000013 ERRO : Número do item inválido no registro E15 na linha 0000013 ERRO : Código do produto/serviço não preenchido na linha 0000013 ERRO : Descrição do produto/serviço não preenchido na linha 0000013 ALERTA : Unidade de medida não preenchida na linha 0000013 ERRO : Indicador de cancelamento inválido no registro E15 na linha 0000013 ERRO : Regra de cálculo inválida no registro E15 na linha 0000013 ERRO : Número de casas decimais do Valor deve ser 2 ou 3 no registro E15 na linha 0000013 ERRO : Arquivo rejeitado na validação =========================== 100+ ANT.CARLOS/SP

Olá boa tarde! to tendo o mm problema e isto aconteceu a mais ou meno uma meia hora.

Olá, bom dia! Estou com seguinte problema: Estou fazendo teste para a empresa no CRT=1, mas ao usar CRT = 1, CSOSN = 101 (tributado pelo SN), os campos do produto ref. ao vBc, vicms saem zerados no XML, embora seja carregados nos copos.Ocorre naturalmente o erro de "Base de calculo difere do somatorio do itens". veja a rotina: ------------------------------------- If (Empresa.CRT = '1') Then Begin //------------------------------------// //...Simples.1 // //------------------------------------// //...Calcula Icms If (Copy(Sql_Itens.FieldByName('CST').AsString,2,2) = '00') Then Begin ICMS.CST := cst00; ICMS.modBC := Set_ModalidadeBaseCalcIcms(Sql_Itens.FieldByName('MBCICMS').AsInteger); ICMS.vBC := Sql_Itens.FieldByName('VBCICMS').AsCurrency; ICMS.pICMS := Sql_Itens.FieldByName('ICMS').AsFloat; ICMS.vICMS := Vlicms; End; If Sql_Itens.FieldByName('CSOSN').AsString = '101' Then Begin ICMS.CSOSN := csosn101; ICMS.pCredSN := Sql_Itens.FieldByName('ICMS').AsFloat; //...Aliquota de credito SN ICMS.vCredICMSSN := Vlicms; //...Sql_Itens.FieldByName('VCREDSN').AsFloat; //...Valor do Credito SN End Else If (Sql_Itens.FieldByName('CSOSN').AsString = '102') Then Begin ..... -------------------------------------

Olá, boa tarde! Tem como ao enviar uma nota e no retorno pega a Data de Retorno da nota ? Pois estou pegando a data do computador, mas pode ser q a data do computador esteja atrasada ou adiantada e acabar pegando uma data errada e gravando no arquivo. sem mais, ANT.CARLOS/SP

Cara vc descobriu o a Mina. Pois já fazia 6meses q estava tentando descobrie este erro, pois nesta semana tiver dois clientes com este problema, q começous depois da 12:00hs do dia 15 e + um q não consegui resolver, contornei instalando o cartao em outra maquina e visando uma formatação na outra. Mas blz, sua contribuição foi valiosa, deu certo pra mim tbém. 100+ ANT.CARLOS/SP

Olá, bom dia! Desejaria sabe pq o Delphi e meu aplicativo passou a exigir que a DLL LIBEAY32.DLL esteja no path do Windows ou aplicativo para rodar. Pois de um dia para outro foi apresentado uma msg pedindo o caminho desta dll. Uso o ACBRMonitor, mas até então não era preciso isto. O que mudou ? Desde já meus agradecimentos a quem pude ajudar. 100+ ANT.CARLOS/SP

Olá boa noite, Tbém já tive vários problemas referenciados acima com o Cstat de retorno. Pois sempre confiro e uso o mesmo para atualizar um arquivo de Xml para nota Autorizada, e de vez em quando uma não retorna o Cstat = 100, mesmo sendo válida, mas ao consultar através do XML, o mm é atualizado, mas o problema maior é o cliente. 100+ ANT.CARLOS/SP

Tem como vc disponibilizar o fonte do projeto Teste ? ANT.CARLOS/SP