-
Total de ítens
902 -
Registro em
-
Última visita
-
Days Won
3
Tudo que adilsonpazzini postou
-
Beleza DATILAS ..agradeço toda sua ajuda , sabe que no final das contas comecei a testar o AcbrETQ e por dar um molhada no manual , vi que da mesmo pra utilizar o componente nesta impressora , pois vi que ela emulas algumas opcoes que tem no AcbrETQ , vou tentar ajustar com ela . pois vi que fica melhor . mais uma vez te agradeço toda ajuda ... Adilson Pazzini
-
tentei mais nao da certo nao pelo AcbrETQ .vou tentar pelo Fortes mesmo , so que nao to conseguindo fazer com que ele faça o salto correto , pois ele ta imprimindo 2 etiquetas certinho , mais ai pula 4 etiquetas pra imprimir 2 novamente . e assim por diante . nao sei se ele ta fazendo o tamanho do papel correto ... Se tiver mais alguma dica . agradeço . Adilson
-
Fortes Report - Impressão Bobina De Etiqueta - 2 Colunas Elgin L42
um tópico no fórum postou adilsonpazzini Object Pascal - Delphi & Lazarus
Boa turma , estou precisando configurar o Fortes Report , pra impressão de Etiquetas pra Bobina de duas colunas pra impressora Elgin L42 USB , estou tentando fazer utilizando o Fortes porem , ate consegui criar um utilizando as propriedades: PageSetup : Orientation :Portrait PaperSize: Custom ai deixei as propriedades: PaperHeigth: 34 PaperWidth: 85 . e coloque um componente RLDetailGrid1 com duas colunas . porem na hora de imprimir , ele ta pulando 2 linhas de etiquetas , e nao to conseguindo fazer na sequencia , alguem tem experiencia e poderia me ajudar , pois nunca utilizei o fortes pra imprimir em bobina . Desde ja agradeço Adilson Pazzini . -
+ OU - ASSIM: with ICMS do begin if (varCRT = '1') then //--> se for simples nacional ... begin if QItensP.FieldByName('CSOSN').AsString = '101' then CSOSN := csosn101 else if QItensP.FieldByName('CSOSN').AsString = '102' then CSOSN := csosn102 else if QItensP.FieldByName('CSOSN').AsString = '103' then CSOSN := csosn103 else if QItensP.FieldByName('CSOSN').AsString = '201' then CSOSN := csosn201 else if QItensP.FieldByName('CSOSN').AsString = '202' then CSOSN := csosn202 else if QItensP.FieldByName('CSOSN').AsString = '203' then CSOSN := csosn203 else if QItensP.FieldByName('CSOSN').AsString = '300' then CSOSN := csosn300 else if QItensP.FieldByName('CSOSN').AsString = '400' then CSOSN := csosn400 else if QItensP.FieldByName('CSOSN').AsString = '500' then CSOSN := csosn500 else if QItensP.FieldByName('CSOSN').AsString = '900' then CSOSN := csosn900; end else begin //---> regime normal .. CRT=3 if QItensP.FieldByName('CODTRB').AsString = '03' then CST := cst00 else if QItensP.FieldByName('CODTRB').AsString = '08' then CST := cst60 else if QItensP.FieldByName('CODTRB').AsString = '09' then CST := cst60 else if QItensP.FieldByName('CODTRB').AsString = '10' then CST := cst10 else if QItensP.FieldByName('CODTRB').AsString = '04' then CST := cst40 else if QItensP.FieldByName('CODTRB').AsString = '83' then //-- imobilizado com ICM CST := cst00 else if QItensP.FieldByName('CODTRB').AsString = '88' then //-- imobilizado com ST CST := cst60 else if QItensP.FieldByName('CODTRB').AsString = '00' then //-- Outros CST := cst90; end;//-->encerrando CRT...
-
Envio Informacoes Webserver Pelo Metodo Get
adilsonpazzini replied to adilsonpazzini's tópico in Object Pascal - Delphi & Lazarus
Consegui enviar , baixei o programa SoapUI , e que realmente e show de bola, ele me passou exatamente como deve ser a estrutura do xml de envio com os parametros , ai fiz conforme ele me passou e deu certo . agradeço ajuda . Adilson Pazzini -
Envio Informacoes Webserver Pelo Metodo Get
adilsonpazzini replied to adilsonpazzini's tópico in Object Pascal - Delphi & Lazarus
Entao . os caras nao sabem me dizer . vou fazer mais alguns testes aqui .. qualquer coisa eu posto . Adilson . -
Envio Informacoes Webserver Pelo Metodo Get
adilsonpazzini replied to adilsonpazzini's tópico in Object Pascal - Delphi & Lazarus
Vc fala ref a troca de caracteres pra poder enviar em Get ... pois vi que o Firefox , faz isso antes de enviar ... ate tentei enviar conforme o firefox enviou , mais mesmo assim . nao retornou nada tambem . Olha so o email de explicacao deles , nao sei se isso pode ajudar em algo : Conforme solicitado, seguem os métodos de acesso para utilizar o Web Service. Por gentileza, para que possamos acompanhar este trabalho e também para auxiliá-los, caso necessário, peço-lhe que nos mantenha informados sobre o andamento do desenvolvimento e implantação da ferramenta. Vamos manter contato para que tudo saia certo ok?! // Método usado para envio dos arquivos XML (NFEs) String retorno = EnviaXML( String Chave_Autenticacao, String Buffer ) // Método usado para envio de arquivos tipo texto genéricos String retorno = EnviaTXT( String Chave_Autenticacao, String Buffer ) Os valores definidos em retorno poderão ser: 0 - Sucesso na transmissão 1 - Erro durante a transmissão 2 - Erro durante a autenticação (Chave inválida). segue um exemplo de um Xml válido: Se não está retornando isso, mas sim erro, é por causa da formatação/codificação do xml. Service EPR: http://ws.yamaha-motor.com.br/axis2/services/YTransferWS A chave de autenticação é: 94e1660d7c34a6b6f70b98814b IMPORTANTE: Atentar-se aos "QUOTES HTML", que devem ser usados, assim como manda o manual da Sefaz, do contrário poderá ocorrer problemas de codificação. Atte, -
Envio Informacoes Webserver Pelo Metodo Get
adilsonpazzini replied to adilsonpazzini's tópico in Object Pascal - Delphi & Lazarus
Entao , Regys . se vc enviar ele direto pelo Browser , tipo usando o FireFox , ele processa normal , e gera o retorno , ja se eu fizer pelo HTTPSend , nao ta me retornando nada ... Isso com o XML , se enviar somente uma mensagem curta ai funciona , tando no Broser qndo no HTTPSend . -
Envio Informacoes Webserver Pelo Metodo Get
um tópico no fórum postou adilsonpazzini Object Pascal - Delphi & Lazarus
Seguinte . pessoal to tentando fazer o retorno de um webserver axis2 , utilizando o lazarus com a unit HTTPSend da Sinapse , porem ao enviar um texto simples .. pela rotina . vai certinho FURL := 'http://sftp.yamaha-motor.com.br/axis2/services/YTransferWS/EnviaXML?args0=94e1660d7c34a6b6f70b98814b&args1=OLAMUNDO'; MemoEnvio.Text := FURL; HTTP.HTTPMethod('GET', FURL); StrStream := TStringStream.Create(''); StrStream.CopyFrom(HTTP. Document, 0); FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); Memo1.Text := FRetornoWS; Memo1.Lines.SaveToFile('RETORNO.XML'); Retornando pra mim <ns:EnviaXMLResponse><ns:return>2</ns:return></ns:EnviaXMLResponse> Porem , qndo tento enviar com uma estrutura XML conforme abaixo pelo FURL. , Conforme abaixo , o mesmo nao me retorna nada , so que se eu pegar esse codigo e jogar num browser , ele me retorna certinho , o que sera que to fazendo de errado no lazarus q nao ta dando certo ? : Desde ja agradeço qualquer ajuda ... http://sftp.yamaha-motor.com.br/axis2/services/YTransferWS/EnviaXML?args0=94e1660d7c34a6b6f70b98814b&args1=<?xml version='1.0' encoding='UTF-8'?><nfeProc versao="2.00" xmlns="http://www.portalfiscal.inf.br/nfe"><NFe xmlns="http://www.portalfiscal.inf.br/nfe"><infNFe versao="2.00" Id="NFe43130472037112000390550010000089181119468167"><ide><cUF>43</cUF><cNF>11946816</cNF><natOp>VENDA DE MERCADORIA COM SUBSTITUICAO TRIBUTARIA</natOp><indPag>1</indPag><mod>55</mod><serie>1</serie><nNF>8918</nNF><dEmi>2013-04-01</dEmi><dSaiEnt>2013-04-01</dSaiEnt><tpNF>1</tpNF><cMunFG>4316808</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>7</cDV><tpAmb>1</tpAmb><finNFe>1</finNFe><procEmi>0</procEmi><verProc>3.0</verProc></ide><emit><CNPJ>72037112000390</CNPJ><xNome>KRAEMER ARTIGOS ESPORTIVOS LTDA</xNome><xFant>CICLOVIA - YAMAHA - Loja 03</xFant><enderEmit><xLgr>RUA JULIO DE CASTILHOS, N 1945</xLgr><nro>.</nro><xBairro>BAIRRO GOIAS</xBairro><cMun>4316808</cMun><xMun>SANTA CRUZ DO SUL</xMun><UF>RS</UF><CEP>96810246</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>5137131555</fone></enderEmit><IE>1080147796</IE><IM>61250</IM><CNAE>0000000</CNAE><CRT>3</CRT></emit><dest><CPF>02473341036</CPF><xNome>JOEL DA SILVA</xNome><enderDest><xLgr>RUA BENTO GONÇALVES, 915</xLgr><nro>.</nro><xBairro>CENTRO</xBairro><cMun>4304200</cMun><xMun>CANDELARIA</xMun><UF>RS</UF><CEP>96930000</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>5195528210</fone></enderDest><IE>ISENTO</IE></dest><det nItem="1"><prod><cProd>31050</cProd><cEAN /><xProd>MOTOCICLETA FACTOR YBR125K</xProd><NCM>87112010</NCM><CFOP>5405</CFOP><uCom>UN</uCom><qCom>1.0000</qCom><vUnCom>6300.0000</vUnCom><vProd>6300.00</vProd><cEANTrib /><uTrib>UN</uTrib><qTrib>1.0000</qTrib><vUnTrib>6300.0000</vUnTrib><indTot>1</indTot><veicProd><tpOp>3</tpOp><chassi>9C6KE1520D0127646</chassi><cCor>AZ</cCor><xCor>AZUL</xCor><pot>10.2</pot><cilin>124</cilin><pesoL>0</pesoL><pesoB>0</pesoB><nSerie>000127646</nSerie><tpComb>GA</tpComb><nMotor>E3G9E-127673</nMotor><CMT>0</CMT><dist>1290</dist><anoMod>2013</anoMod><anoFab>2012</anoFab><tpPint>M</tpPint><tpVeic>4</tpVeic><espVeic>1</espVeic><VIN>N</VIN><condVeic>1</condVeic><cMod>9611</cMod><cCorDENATRAN>02</cCorDENATRAN><lota>2</lota><tpRest>0</tpRest></veicProd></prod><imposto><ICMS><ICMS60><orig>0</orig><CST>60</CST><vBCSTRet>0.00</vBCSTRet><vICMSSTRet>0.00</vICMSSTRet></ICMS60></ICMS><PIS><PISNT><CST>06</CST></PISNT></PIS><COFINS><COFINSNT><CST>06</CST></COFINSNT></COFINS></imposto><infAdProd>MARCA: YAMAHA; ANO: 2012; MODELO: 2013; COR: AZUL; MOTOR: E3G9E-127673; CILINDRADAS: 124; PASSAGEIROS: 2; RENAVAM: 9611; CHASSI: 9C6KE1520D0127646; POTENCIA: 10.2; COMBUSTIVEL: GASOLINA;</infAdProd></det><total><ICMSTot><vBC>0.00</vBC><vICMS>0.00</vICMS><vBCST>0.00</vBCST><vST>0.00</vST><vProd>6300.00</vProd><vFrete>0.00</vFrete><vSeg>0.00</vSeg><vDesc>0.00</vDesc><vII>0.00</vII><vIPI>0.00</vIPI><vPIS>0.00</vPIS><vCOFINS>0.00</vCOFINS><vOutro>0.00</vOutro><vNF>6300.00</vNF></ICMSTot></total><transp><modFrete>0</modFrete><vol /></transp><cobr><dup><nDup>008918-01 DUPLICATA</nDup><dVenc>2013-04-01</dVenc><vDup>1000.00</vDup></dup><dup><nDup>008918-02 DUPLICATA</nDup><dVenc>2013-04-01</dVenc><vDup>5300.00</vDup></dup></cobr><infAdic><infAdFisco>ICMS retido por substituiçao tributaria - Convenio ICMS n 52/93 - Termo de acordo n ST/V2R -72/2004 - PIS e COFINS retido pelo fabricante conf IN SRF 054/00</infAdFisco></infAdic></infNFe><Signature xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI="#NFe43130472037112000390550010000089181119468167"><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>D2wMUwlgfWkShaktXQfk+jxg5aQ=</DigestValue></Reference></SignedInfo><SignatureValue>N9dSpp8yTOaNN0kyCg4fIbTqjAHWME/Wlf7FSHqn6ALBZZaufzfTdt16nKnOHIseEPB3QqQ6FPaR2nC1fPlxClzIXAneZTheDEojqesjg2tfFCTLSKtVIJuO18UlzF/SAPGXsgqFltTLlzBP2CqSuottzkzFGb9i6L2psghlSYDDKQPJeRWcp02AZdJSJ2EV6RswJR+peskfScPpNNK9yyUAVHHX+dP+l3fVRMJhojD6/Z4oCsfEOpdq11jOYh+/bhdfLjHvk8se6kwcV5D7/zLLiiURTIH6QCsfJSn+erLmL1uSvP2KYrqgAn8qfwDwrDHVdECIRlSmYJtkvE4VjQ==</SignatureValue><KeyInfo><X509Data><X509Certificate>MIIH/zCCBeegAwIBAgIQNDeY65jGI8u5oTuNC4twijANBgkqhkiG9w0BAQsFADBxMQswCQYDVQQGEwJCUjETMBEGA1UEChMKSUNQLUJyYXNpbDE2MDQGA1UECxMtU2VjcmV0YXJpYSBkYSBSZWNlaXRhIEZlZGVyYWwgZG8gQnJhc2lsIC0gUkZCMRUwEwYDVQQDEwxBQyBCUiBSRkIgRzMwHhcNMTIwNjAxMDAwMDAwWhcNMTMwNTMxMjM1OTU5WjCB8DELMAkGA1UEBhMCQlIxEzARBgNVBAoUCklDUC1CcmFzaWwxCzAJBgNVBAgTAlJTMRAwDgYDVQQHFAdMQUpFQURPMTYwNAYDVQQLFC1TZWNyZXRhcmlhIGRhIFJlY2VpdGEgRmVkZXJhbCBkbyBCcmFzaWwgLSBSRkIxFjAUBgNVBAsUDVJGQiBlLUNOUEogQTExJDAiBgNVBAsUG0F1dGVudGljYWRvIHBvciBBUiBBQ0VSVENPTjE3MDUGA1UEAxMuS1JBRU1FUiBBUlRJR09TIEVTUE9SVElWT1MgTFREQTo3MjAzNzExMjAwMDEyODCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAIyFbwP30Be05zNyhYap8WPRtTdLTtE2E4INOoz/O6zHyrhU5xwIuBEqRLcWa/BW6SSJFP2rGS/woQizW3XzLI9VIo1JfhK2x0hLwJZpWBfA8KjVWqa29qIRLQ1RtCzM5Z3zJrC8fSzQpcdIZw0wF+a8CHTZkSB1y931Fkj/2TQH41fVDZfNRPCQXNTnPU0KaJHQ3gGTcPaGLJIiJ+fgZRc1mkd0Gz0JFdsySEckMC3EbaraRBkLBaylt3+bK1Et3EsI6vBaR9YBOB20XVNEth2jmfeFnv50RJrDPbrZlNOyde5KeOLAqepA42aEiN8R8Zo2AOzf0oPpX3dWVGav3dUCAwEAAaOCAxEwggMNMIG5BgNVHREEgbEwga6gPQYFYEwBAwSgNAQyMjYxMDE5NTkzMDIzMzI5MTA5MTAwMDAwMDAwMDAwMDAwMDAxMDE0ODE3NTYxU1NQUlOgHgYFYEwBAwKgFQQTREVMTUFSIEpPU0UgS1JBRU1FUqAZBgVgTAEDA6AQBA43MjAzNzExMjAwMDEyOKAXBgVgTAEDB6AOBAwwMDAwMDAwMDAwMDCBGXVhZTAwNjFAYXJhY2VydGNvbi5jb20uYnIwCQYDVR0TBAIwADAfBgNVHSMEGDAWgBRO+6hxcb/qqb2RPU26ZKz50uLkpDAOBgNVHQ8BAf8EBAMCBeAwbAYDVR0gBGUwYzBhBgZgTAECARswVzBVBggrBgEFBQcCARZJaHR0cDovL2ljcC1icmFzaWwuYWNici5vcmcuYnIvcmVwb3NpdG9yaW8vZHBjL0FDX0JSX1JGQi9EUENfQUNfQlJfUkZCLnBkZjCB9AYDVR0fBIHsMIHpMEugSaBHhkVodHRwOi8vaWNwLWJyYXNpbC5hY2JyLm9yZy5ici9yZXBvc2l0b3Jpby9sY3IvQUNCUlJGQkczL0xhdGVzdENSTC5jcmwwT6BNoEuGSWh0dHA6Ly9pY3AtYnJhc2lsLm91dHJhbGNyLmNvbS5ici9yZXBvc2l0b3Jpby9sY3IvQUNCUlJGQkczL0xhdGVzdENSTC5jcmwwSaBHoEWGQ2h0dHA6Ly9yZXBvc2l0b3Jpby5pY3BicmFzaWwuZ292LmJyL2xjci9SRkIvQUNCUlJGQkczL0xhdGVzdENSTC5jcmwwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMIGOBggrBgEFBQcBAQSBgTB/MFMGCCsGAQUFBzAChkdodHRwOi8vaWNwLWJyYXNpbC5hY2JyLm9yZy5ici9yZXBvc2l0b3Jpby9jZXJ0aWZpY2Fkb3MvQUNfQlJfUkZCX0czLnA3YzAoBggrBgEFBQcwAYYcaHR0cDovL29jc3AuY2VydGlzaWduLmNvbS5icjANBgkqhkiG9w0BAQsFAAOCAgEAU5KcPh1Lao/gFpzJub3cMmp/DlYieCGnA9T6khEA1GWQcNm0jma3AgPPl4NbSVMBezuBEYVLLa30opftDsYMOkpG/wReBJnwMG3LWsC7P3Eh6C31dsnxSjJxL2nob6fo+lR5XGJ8Oi2Pm673JutQXLlbnYAXHXEldpQQDay9yL1hsSjfeVq1ufXfpBGzi7Oe8PRUYzqhzL/XEfOYQfTlFQabOQFLy8/bV8wkM4zG8kNEiZHHEyBuPZP8DnPwkAxzj4T86zkRiVRCirICiC8sufoqWChN08sEKvDRxnbk90aIMkuNdiy5zJy3OGNe56ZkiZY1wHYH6SplZ+8/3SSu+zZWGEp8wip16YeShvYlMzYquefkincgDcm4Um69BEGyGKLq/6eibzc69kAz9zhJyX7CvhdYuZEJQB9WczuD6vxwIoLAPNwBo8psfgCWLfmLvt4cMdgEJk8JbYBWOU8jIZPhuVrLbdSWNrW32aaZWUp08+mpNa8iZ1Fljp/Q0xP3t7gwJg1ORxd+H9Gl08sAIMRon4ZKcnyQohoaXkBv8HZctVbrkIRDhmwVUC+4EUh3LAS1dsYhLb9aIDDSzmCfOGHW40U45oVnD8+E/4CIbByH3oDhqQdiatA4JjWLIP96LrwvzdKSMlSP4T5J04U8g/GlMq9IRqHMTmnzG3mxSZs=</X509Certificate></X509Data></KeyInfo></Signature></NFe><protNFe versao="2.00" xmlns="http://www.portalfiscal.inf.br/nfe"><infProt Id="ID143130046151751"><tpAmb>1</tpAmb><verAplic>RS20130307114609</verAplic><chNFe>43130472037112000390550010000089181119468167</chNFe><dhRecbto>2013-04-01T17:27:41</dhRecbto><nProt>143130046151751</nProt><digVal>D2wMUwlgfWkShaktXQfk+jxg5aQ=</digVal><cStat>100</cStat><xMotivo>Autorizado o uso da NF-e</xMotivo></infProt></protNFe></nfeProc> -
Prescisa fazer HOMOLOGAÇÂO no estado do Paraná?
adilsonpazzini replied to walter faria's tópico in ACBrNFe
Sou do Estado de São Paulo da Cidade de Itapetininga . -
Prescisa fazer HOMOLOGAÇÂO no estado do Paraná?
adilsonpazzini replied to walter faria's tópico in ACBrNFe
Boa pessoal . alguém sabe mais ou menos , quanto tempo leva pra liberação do usuário , após o envio dos papeis do preenchimento . Adilson . -
Ferramenta De Profile Para Firebird
adilsonpazzini replied to Sergioguedes's tópico in Object Pascal - Delphi & Lazarus
Sergio entra no site da www.firebase.com.br , la tem varios programas pra monitoração . -
Compilar Acbrdanfe No Linux
adilsonpazzini replied to Tabata's tópico in Object Pascal - Delphi & Lazarus
Tem um usuario la no forum do lazarus do Grupos da Google . que conseguiu instalar e testar . cheguei ate ver alguns prints dos DANFES em Lazarus pra Linux . Vou tentar achar aqui o link pra postar . Adilson -
vc deve adquirir um certificado digital pra validacao das assinaturas , o mesmo certificado que é utilizado para NFe . pode comprar pela www.certisign.com.br pelo Serasa , ai vc ve o que é melhor pra vc , e ref ao provedor ISSNET , funciona sim no acbrNFSe .
-
Nfc-E - Nota Fiscal Do Consumidor Eletrônica
adilsonpazzini replied to André Ferreira de Moraes's tópico in ACBrNFe
Sergio . uma duvida , e ref ao TEF . tem que mexer se for utilizar a NFEc . Adilson -
Acbrnfse Openssl Com Lazarus 1.1 Fpc-2.6.2
adilsonpazzini replied to adilsonpazzini's tópico in Object Pascal - Delphi & Lazarus
Beleza Andre .. valeu velho .. muito obrigado .. Adilson Pazzini -
Acbrnfse Openssl Com Lazarus 1.1 Fpc-2.6.2
adilsonpazzini replied to adilsonpazzini's tópico in Object Pascal - Delphi & Lazarus
Essa linha Andre , coloco ela na hora de finalizar o sistema . que é qndo da o erro ? Adilson