ANT.CARLOS.SP

Olá boa tarde! Depois de muito pesquisar e quebrar a cabeça descobri que a Impressora ZEBRA não imrime pelo nome da impressora e sim somente pelo nome do compartilhamento. Fiz vários teste de descobri como pegar o nome do compartilhamento. Na Argox imprime tanto pelo nome da impressora com pelo nome do compartilhamento. Nota: Para instalar a impressora ZEBRA deixe-a desligada e se preciso for desinstale todos os drivers q usa USB, pois, depois de tanto instalar e desinstalar descobri alguns segredos. Abaixo esta como pegar o nome do compartilhamento. Obrigado a todo e muito obrigado! 100+ ANT.CARLOS/SP Nome da Impressora: ZDesigner GC420T (EPL) (1) Nome do Compartilhamento: ZDesigner Uses winspool, Printers; ---------------------------------- procedure TFPrincipal.AtivarACBrETQ ; var aDevice : array[0..255] of char; aDriver : array[0..255] of char; aPort : array[0..255] of char; ahDMode : THandle; fone, NomComp : String; posi : Integer; var PrinterInfo: PPrinterInfo2; PrnHandle :THandle; PrnInfo2 :PPRINTERINFO2; PrnInfoSize :DWord; NomeImpcomp : String; begin NomComp := Nome_do_Computador; Printer.GetPrinter(aDevice, aDriver, aPort, ahDMode); //...Pega a Impressora padrao if OpenPrinter(aDevice, PrnHandle, nil) then begin GetPrinter(PrnHandle, 2, nil, 0, @PrnInfoSize); PrnInfo2 := AllocMem(PrnInfoSize); if GetPrinter(PrnHandle, 2, PrnInfo2, PrnInfoSize, @PrnInfoSize) then Label8.Caption := PrnInfo2^.pServerName +' | ' + PrnInfo2^.pPrinterName +' | ' + PrnInfo2^.pShareName else Label8.Caption := 'Falhou...'; NomeImpcomp := PrnInfo2^.pShareName; ClosePrinter(PrnHandle); FreeMem(PrnInfo2, PrnInfoSize) end; with ACBrETQ do begin DPI := TACBrETQDPI(cbDPI.ItemIndex); Modelo := TACBrETQModelo(cbModelo.ItemIndex) ; //Porta := cbPorta.Text ; caso seja COM ou LPT //ACBrETQ.Porta := '\\192.168.0.100\ZDesigne'; //........>funcionou //ACBrETQ.Porta := '\\'+NomComp+'\'+'ZDesigne'; //........>funcionou ACBrETQ.Porta := '\\'+NomComp+'\'+NomeImpcomp; //........>funcionou LimparMemoria := ckMemoria.Checked ; Ativar ; end; end; ---------------------------------

Olá boa noite! Estou tentanso conectar a impressora na USB mas não funciona de jeito nenhum. Na LPT1, 2,3 ok, funciona. Nota: Antes q alguém diga para mim pesquisar, já fiz isto e já estou a uma semana fazendo isto. já lee todos os tópicos sobre a zebra e Argox. Impressora Zebra GC420t, Padrao e compartilhada como: ZDesigner1. Printer.GetPrinter(aDevice, aDriver, aPort, ahDMode); //...Pega a Impressora padrao NomComp := Nome_do_Computador; // //...Aqui com a impressora ARGOX funciona veja // If DMCONFIG.Sql_PesqConfigsisMODIMPZEBRA.AsString = 'ARGOX' Then ACBrETQ.Porta := '\\'+NomComp+'\'+aDevice; // //...Com este comando não funciona na impressora Zebra GC420t erro I/O 53 // If DMCONFIG.Sql_PesqConfigsisMODIMPZEBRA.AsString = 'ZEBRA' Then ACBrETQ.Porta := '\\quadcore\ZDesigner1'; // //...Com este comando não funciona na impressora Zebra GC420t erro I/O 53 // If DMCONFIG.Sql_PesqConfigsisMODIMPZEBRA.AsString = 'ZEBRA' Then ACBrETQ.Porta := '\\localhost\ZDesigner1'; // //...Com este comando não funciona na impressora Zebra GC420t erro I/O 53 // If DMCONFIG.Sql_PesqConfigsisMODIMPZEBRA.AsString = 'ZEBRA' Then ACBrETQ.Porta := '\\192.168.0.1\ZDesigner1'; //...IP da minha maquina // //...Com este comando não funciona na impressora Zebra GC420t erro I/O 53 // If DMCONFIG.Sql_PesqConfigsisMODIMPZEBRA.AsString = 'ZEBRA' Then ACBrETQ.Porta := '\\'+NomComp+'\'+aDevice; A quem puder ajudar desde já meus agradecimentos.

Olá, era isto que procurava, muito obrigado! Arquivo ACBrETQEpl2 ========================= 39 - "3C" 128 - "1A" "1B" "1C" EAN8 - "E80" "E82" "E85" EAN13 - "E30" "E32" "E35" 2 of 5 - "2" "2C" "2D" ImprimirBarras(orNormal,'1A', '2', '2', 410, 570, '12345', 60, becSIM); ImprimirBarras(orNormal, 'E30', '2', '2', 410, 570, '7896003701685', 60, becSIM); 100+ ANT.CARLOS/SP

Alguém poderia me explicar Porque no manual para imprimir um codigo de barras eu uso o "E" para EAN e no ACBR eu uso "E30" ?

Olá fiz o teste de impressao de codigo de barras na Argox PLA td bem ok, e descobri os tipos de codigo de barras: //Tipo cod.Barras : A-39, //Tipo cod.Barras : E-128, //Tipo cod.Barras : F-EAN, //Tipo cod.Barras : G-EAN-8, Mas quais os Tipos de codigo de barras para a impressora Zebra EPL ? "E30" = EAN 8 ou 13 "1" = 128 Cod 39 = ??? Mas qual código para 39 que imprima correto. Lee o manual e testei com os possíveis código lá existente 0,1,2,3,E,K, mas só funcionou com o cod. 1, cod bar "128" e o q está no exemplo do ACBR "E30" q só imprime códigos válidos. No meu caso se o produto não tiver o cod.Barras preciso imprimir o cod. do sistema, no caso tem 5 digitos. Desde já meus agradecimentos a quem puder ajudar. 100+ ANT.CARLOS/SP

ok 100+ ANT.CARLOS/SP

Olá boa tarde! Estou Usando o ACBrFiscal e no campo do registro "RegistroC100New" o valor "VL_BC_ICMS " do Icms não esta sendo gravado, os outros campos sim. A quem puder ajudar e verificar desde já meus agradecimetos. 100+ ANT.CARLOS/SP

Olá bom dia! Desejaria saber pq não consigo salvar um arquivo Cte em PDF no caminho especificado na configuracao ? No Nf-e vai tranquilo mas aqui no CTe não consigo gerar. Veja as configuraçoes em anexo. ---------------------- Linha de comandos DMACBRCTE.ACBrCte1.Conhecimentos.Clear; if OpenDialog1.Execute then Begin DMACBRCTE.ACBrCte1.Conhecimentos.LoadFromFile(OpenDialog1.FileName); PathCte := UpperCase(OpenDialog1.FileName); DMACBRCTE.ACBrCte1.Conhecimentos.ImprimirPDF; ---------------------- A quem puder responder desde já meus agradecimentos. 100+ ANT.CARLOS/SP

Olá boa tarde! Estou trabalhando com o Cte e estou tendo um probleminha ao enviar um Cte con Nf-e mais uma nota de PAPEL esta ocorrenco um erro na validacao q não consigo decobrir onde está. Alguém poderi me ajudar nesta ? A quem puder ajudar desde já meus agradecimentos. 100+ ANT.CARLOS/SP 35130117085443000125570010000000031000000037-cte.xml 35130117085443000125570010000000031000000037-cte.xml

Olá, Ref. a totalizacao do Bloco F510 funcionou após a atualizacao. 100+ ANT.CARLOS/SP

Se eu não informo exibe o erro tbém.

Olá boa tarde! Estou usando: Lucro presumido + Regime de Caixa + Cumulativo. Estou com pequeno probleminha ao fechar o Bloco_9 "É necessário totalizar os registros do tipo F510 no boloco 9." Alguem poderia me dizer onde devo inserir o fechamento desde Boloco. FAvor inserir um exemplo caso responda, pois já fiz de quase tudo e ainda não consegui resolver o problema. A quem responder desde já meus agradecimento. 100+ ANT.CARLOS/SP ------------------------------------- // Alimenta o componente com informações para gerar todos os registros do // Bloco 1. with ACBrSPEDPisCofins1.Bloco_1 do begin with Registro1001New do begin IND_MOV := imSemDados; end; with Registro1900New do begin //{ CNPJ // COD_MOD // SER // SUB_SER // COD_SIT // VL_TOT_REC // VL_TOT_REC // QUANT_DOC // CST_PIS // CST_COFINS // CFOP // INF_COMPL // COD_CTA } end; end; with ACBrSPEDPisCofins1.Bloco_9 do begin with Registro9001 do Begin IND_MOV := imComDados; // imSemDados; DT_INI := StrToDate(Trim(Ed_dtini.text));; DT_FIN := StrToDate(Trim(Ed_dtfin.text)); with Registro9900 do Begin New.REG_BLC := '41'; New.QTD_REG_BLC := 41; end; end; Registro9990.QTD_LIN_9 := 41; Registro9999.QTD_LIN := 41; end; ------------------------------------- ACBrSPEDPisCofins.txt

Olá bom dia! Estou com alguma dúvida no boloco F500 ref. ao F1900 E F990. Desejaria saber onde devo implementar estes dois boloco na implementacao. 100+ ANT.CARLOS/SP

Olá boa tarde! Fiz um teste com a configuracao de uma empresa epotética com lucro Presumido Não cumulativo até ai td bem. Mas agora estou fazendo um novo teste para: Lucro Presumido + Regime de Caia + Cumulativo. Desejaria saber quais Bolcos devo preencher e os que não devo. Pois neste novo teste não estou conseguindo entender algumas coisas nos avisos erros no Validador da Sefaz. a quem puder ajudar desde já meus agrwdecimentos. 100+ ANT.CARLOS/SP

Olá boa noite! Fiz uma carta de correcao com aproximadamente 5 linha de 50 caracters. Até ai td bem, enviei e na ora de imprimi forma exibidas apenas 4 linhas do texto digitado. Consultei a nota na Sefaz e vi q o texto estava todo lá. Fiz uma seguna impressao da CCe e o texto aparecu por completo. Fiz vários teste e confirmei q existe um erro ao imprimir a CCe da primeira vez. Fica aqui registrado o problema a quem puder fazer o ajuste. 100+ ANT.CARLOS/SP

A passagem de parametros foi modificada, corrigi e agora ok. Obrigado!

Olá, não chega a gerar o xml, para na validacao. veja imagem a seguir: As variaveis estão sendo carregadas com exceção da desta : infEvento.detEvento.xCondUso := ''; 100+ ANT.CARLOS/SP

Olá bom dia! Minha Carta de correção ja emitia anteriormente corretamente, mas agora q atualizei via SVN agora acorre um erro. Veja imagem: Abaixo segue a linha de código. a quem puder ajudar desde jpa mes agradecimentos. 100+ ANT.CARLOS/SP aqui minha lina de código: ---------------------------------------- DMACBRNFE.ACBrNFe1.CartaCorrecao.CCe.Evento.Clear; DMACBRNFE.ACBrNFe1.CartaCorrecao.CCe.idLote := StrToInt(idLote) ; with DMACBRNFE.ACBrNFe1.CartaCorrecao.CCe.Evento.Add do begin infEvento.chNFe := ChNfe; infEvento.cOrgao := StrToInt(codOrgao); infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := 110110; infEvento.nSeqEvento := StrToInt(nSeqEvento); infEvento.versaoEvento := '1.00'; infEvento.detEvento.descEvento := 'Carta de Correção'; infEvento.detEvento.xCorrecao := Correcao; infEvento.detEvento.xCondUso := ''; end; DMACBRNFE.ACBrNFe1.EnviarCartaCorrecao(StrToInt(idLote)); ----------------------------------------

Olá bom dia! Da uma olhada melhor encontrei um problema na unidade de medida que não tinha uma Trim(), pois meu attributo Unimed é varchar de 5, corrigi isto e funcionou perfeitamente. obrigado pela atenção! 100+ ANT.CARLOS/SP

Olá boa noite! Uso o ACBrNfe já ha muito tempo, mas depois de uma atualizacao minhas notas esta imprimindo duplamente a "Unid.Medida", "Qtde" e "vr.unitário". Veja a imagem. Fiz vários teste pra ver se tem algum erro na minha SQL, mas parece estar tudo ok. alguem poderia dizer alguma coisa sobre isto ? sem mais, desde já meus agradecimentos ANT.CARLOS/SP

Olá boa noite! Então, não consigo inutilizar, pois uma msg diz que este numero está sendo utilizado! É algo muito estranho pois acontece de vez em quando e depois normaliza. Agora mesmo tive um cliente que enviou uma nota com número não utilizado e foi rejeitada, fizemos a correção do erro e esta rejeitada novamente como duplicidade, consulto e o numero do recibo retorna vazio, para imprimir esta nota tive q incrementar o numero da nota em mais 1 ai então consegui imprimi-la normalmente. 100+ ANT.CARLOS/SP

Olá boa noite! Estou usando a NFe ha um bom tempo e tenho uma dúvida quanto a algumas nota que são rejeitadas. Quando uma nota é rejeita pela SEFAZ em alguns casos faço a correção e envio a mesma nota com o mesmo número, uma vez que a mesma ainda não foi usado e entao a mesmo é liberada. Mas em algumas situações em que a nota é rejeita por duplicidade, faço a pesquisa e imprimo, mas em outros a mesma não consta na base da SEFAZ, envio novamente e resulta na rejeição, incremento o numero da nota e envio, somemte então a nota é liberada e o número anterior fica perdido. Desejaria saber pq isso acontece ? Pois a mensagem avisa que houve uma duplicidade mas ao pesquisar não retorna o recibo. Isto aconte principalmente com clientes que usam Internet sem fio ou Modem, que geralmente é mais lenta e sucetivel a quedas impercepitiveis. desde já meus agradecimentos a quem puder ajudar. 100+ ANT.CARLOS/SP

Olá boa tarde! Fiz o teste de gerar Chave da Nfe , mas vi q não esta gerando corretamente pois esta usando a config. da Nfe v.01. Então como faço para acessar a versao da chave nfe 2.0 ? O correto seria assim: vFemissao := '1'; vUF := NotaUtil.Poem_Zeros(AUF, 2); vDataEmissao := FormatDateTime('YYMM', ADataEmissao); vModelo := NotaUtil.Poem_Zeros(AModelo, 2); vSerie := NotaUtil.Poem_Zeros(ASerie, 3); vNumero := NotaUtil.Poem_Zeros(ANumero, 9); vCodigo := NotaUtil.Poem_Zeros(ACodigo, 8); Result := vUF+vDataEmissao+ACNPJ+vModelo+vSerie+vNumero+vFemissao+vCodigo; Não estou entendo pq quando gero uma nota sai correto. 100+ ANT.CARLOS/SP -------------- funcao original--------------------------------------------- class function NotaUtil.ChaveAcesso(AUF: Integer; ADataEmissao: TDateTime; ACNPJ: String; ASerie, ANumero, ACodigo: Integer; AModelo: Integer): String; var vUF, vDataEmissao, vSerie, vNumero, vCodigo, vModelo: String; begin vUF := NotaUtil.Poem_Zeros(AUF, 2); vDataEmissao := FormatDateTime('YYMM', ADataEmissao); vModelo := NotaUtil.Poem_Zeros(AModelo, 2); vSerie := NotaUtil.Poem_Zeros(ASerie, 3); vNumero := NotaUtil.Poem_Zeros(ANumero, 9); vCodigo := NotaUtil.Poem_Zeros(ACodigo, 9); Result := vUF+vDataEmissao+ACNPJ+vModelo+vSerie+vNumero+vCodigo; Result := Result+NotaUtil.Modulo11(Result); end;

Olá bom dia! Desejaraia saber em q arquivo .pas fica a função q calcula a chave da nfe/digito ? 100+ ANT.CARLOS/SP

Olá, boa noite! Ao imprimir uma Nf-e, a mesmo não poderá ser cancelada após 24hs, diz o novo regulamento, para cancelar após 24hs será necessário fazer um estorno. Alguem já tem esta rotina pronta ? desde já meus agradecimentos, 100+ ANT.CARLOS/SP