ANT.CARLOS.SP
-
Total de ítens
93 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por ANT.CARLOS.SP
-
-
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
Web service - NFs-e Pref. Promissao, por onde comecar ?
em ACBrNFSe
Postado
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.