Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
14 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 14 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Estatísticas
Temos 7081 usuários registrados
O último usuário registrado atende pelo nome de DENISON SANTOS DA SILVA

Os nossos membros postaram um total de 49 mensagens em 26 assuntos

Gerar um arquivo XML em VFP 5

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Em curso Gerar um arquivo XML em VFP 5

Mensagem por ClodoaldoOliveira em 10/3/2011, 16:40

Boa tarde Amigos(as)

Por favor estou precisando gerar um arquivo xml atraves do VFP 5 de uma tabela de dados (em DBF).

Fico no aguardo

Atenciosamente

Clodoaldo Oliveira

ClodoaldoOliveira
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: Gerar um arquivo XML em VFP 5

Mensagem por alceu11 em 10/3/2011, 16:56

Vc poderia mudar esta versao 5 para uma mais rescente.

Vou postar 1 exemplo é ilustrativo !! Que atraves de um cursor, voce gerara o arquivo XML;
E é obvio que teria que pegar os campos da sua nota fiscal. para cada tag do arquivo a ser gerado.
Mais COMO EXEXMPLO no final ele gerara, o documneto xml e PARA VC ver na pasta ondi voce rodar este exemplo

Código:


* Programa: Gera o XML de acordo com NFe de forma manual (xml2.prg)
*************************************************************************************
IF USED('nfe')
  USE IN nfe
endif 
USE
CLOSE TABLES all

SET POINT TO "."
Chave_Acesso="NFe35080599999090910270550010000000015180051273"

SELECT 1
CREATE CURSOR NFe (Linha Character(254))

*Inicio do XML
INSERT INTO Nfe VALUES('<?xml version="1.0" encoding="utf-8"?>')
INSERT INTO Nfe VALUES('<NFe xmlns="http://www.portalfiscal.inf.br/nfe">')
INSERT INTO Nfe VALUES(' <infNFe Id="'+Chave_Acesso+'" versao="1.10">')
**ou...
*INSERT INTO Nfe VALUES(' <infNFe Id=NFe"35080599999090910270550010000000015180051273" versao="1.10">')
INSERT INTO Nfe VALUES('<?xml version="1.0" encoding="UTF-8" ?>')
INSERT INTO Nfe VALUES('<NFe xmlns="http://www.portalfiscal.inf.br/nfe">')
INSERT INTO Nfe VALUES('<infNFe xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" Id="'+Chave_Acesso+'" versao="1.10">')
       

*Gerando Elemento ide

        DO Ide_Nfe   
        DO Emi_Nfe
        DO Dest_Nfe
        DO Ret_Nfe
        DO Ent_Nfe
        DO Det_Prod
        DO Total_Nfe
        DO Trans_Nfe
        **DO Cobra_nf
        DO InfoA_Nfe
       
    INSERT INTO Nfe VALUES('</infNFe>')       



SET POINT TO ","
    oCaminho=SYS(5)+CURDIR()
    ovalidar=SYS(5)+CURDIR()
    Nfe    =    chave_acesso+'-nfe.xml'
    Arquivo=alltrim(Ocaminho)+chave_acesso+'-nfe.xml'
    Arquivo=ALLTRIM(oValidar)+chave_acesso+'-nfe.xml'
    Copy to (Arquivo) TYPE SDF FIELDS Nfe.linha


****
**  Pegar informações do xml e gravar nas tabelas
t=FILETOSTR(Arquivo)
Inicio = AT("<SignatureValue>",t)
fim    = AT("</SignatureValue>",t)
**

SET POINT TO ","
SELECT nfe
GO top
BROWSE normal
return

PROCEDURE Ide_NFe

    INSERT INTO Nfe VALUES('<ide>')                      && Grupo ide
    INSERT INTO Nfe VALUES('<cUF>35</cUF>')              && Codigo da UF para o estado de SP (B02)
    INSERT INTO Nfe VALUES('<cNF>518005127</cNF>')      && Codigo interno do sistema que esta integrado com a NFe    (B03)
    INSERT INTO Nfe VALUES('<natOp>Venda a vista</natOp>')  && Descricao da(s) CFOP(s) envolvidas nessa NFe (B03)
    INSERT INTO Nfe VALUES('<indPag>0</indPag>')    && Indicador da forma de pagamento (1-a vista,2-a parazo) (B05)
    INSERT INTO Nfe VALUES('<mod>55</mod>')            && Codigo do modelo de documento fiscal (B06)
    INSERT INTO Nfe VALUES('<serie>1</serie>')          && Serie do documento (B07)
    INSERT INTO Nfe VALUES('<nNF>1</nNF>')                && Numero da nota fiscal (B08)
    INSERT INTO Nfe VALUES('<dEmi>2008-05-06</dEmi>')    && Data de emissao da nota fiscal (AAAA-DD-MM) (B09)
    INSERT INTO Nfe VALUES('<dSaiEnt>2008-05-06</dSaiEnt>')    && Data de saida ou entrada da nota fiscal (AAAA-DD-MM) (B10)
    INSERT INTO Nfe VALUES('<tpNF>0</tpNF>')        && Tipo de desconto fiscal (0-entrada,1-saida) (B11)
    INSERT INTO Nfe VALUES('<cMunFG>3550308</cMunFG>')    && Codigo do municipio,conforme tabela do IBGE (B12)
    INSERT INTO Nfe VALUES('<tpImp>1</tpImp>')        && Tipo de impressao da danfe (1-Retrato,2-Paisagem) (B21)
    INSERT INTO Nfe VALUES('<tpEmis>1</tpEmis>')        &&Forma de emissao da NFe (1-Normal,2-Contingencia) (B22)
    INSERT INTO Nfe VALUES('<cDV>3</cDV>')                &&Calculo (verificar) (B23)
    INSERT INTO Nfe VALUES('<tpAmb>2</tpAmb>')        && Identificação do ambiente (1-Producao,2-Homologação) (B24)
    INSERT INTO Nfe VALUES('<finNFe>1</finNFe>')    && Finalidade da NFe (1-Normal,2-Complementar,3-de Ajuste) (B25)
    INSERT INTO Nfe VALUES('<procEmi>0</procEmi>')    && Identificador do processo da emissao
                                                            &&(0-emissao da NFe com aplicativo do contribuinte (B26),ver
                                                                          &&outras opções no manual da receita
    INSERT INTO Nfe VALUES('<verProc>NF-eletronica.com</verProc>')      &&versao do aplicativo emissor (B27)   
    INSERT INTO Nfe VALUES('</ide>')                          &&fim do grupo ide

    *Padrao do XML Elemento ide
    *<ide>
    *  <cUF>35</cUF>
    *  <cNF>518005127</cNF>
    *  <natOp>Venda a vista</natOp>
    *  <indPag>0</indPag>
    *  <mod>55</mod>
    *  <serie>1</serie>
    *  <nNF>1</nNF>
    *  <dEmi>2008-05-06</dEmi>
    *  <dSaiEnt>2008-05-06</dSaiEnt>
    *  <tpNF>0</tpNF>
    *  <cMunFG>3550308</cMunFG>
    *  <tpImp>1</tpImp>
    *  <tpEmis>1</tpEmis>
    *  <cDV>3</cDV>
    *  <tpAmb>2</tpAmb>
    *  <finNFe>1</finNFe>
    *  <procEmi>0</procEmi>
    *  <verProc>NF-eletronica.com</verProc>
    *</ide>

RETURN

PROCEDURE Emi_NFe
    &&Informações do Emitente
   
    INSERT INTO Nfe VALUES('<Empresa Teste Ltda emit>')                          &&Inicio do grupo emit
    INSERT INTO Nfe VALUES('<CNPJ>99999090910270</CNPJ>')          &&CNPJ (C02)
    INSERT INTO Nfe VALUES('<xNome>NF-e Associacao NF-e</xNome>')  &&razão social ou nome (C03)   
    INSERT INTO Nfe VALUES('<xFant>NF-e</xFant>')              &&nome fantasia (C04)
    INSERT INTO Nfe VALUES('<enderEmit>')                      &&Grupo enderEmit
    INSERT INTO Nfe VALUES('<xLgr>Rua Central</xLgr>')          &&logradouro (C06)
    INSERT INTO Nfe VALUES('<nro>100</nro>')              &&numero do logradouro (C07)
    INSERT INTO Nfe VALUES('<xCpl>Fundos</xCpl>')                &&complemento (C08)
    INSERT INTO Nfe VALUES('<xBairro>Distrito Industrial</xBairro>') &&bairro (C09)   
    INSERT INTO Nfe VALUES('<cMun>3502200</cMun>')                &&codigo da cidade tabela IBGE (C10)
    INSERT INTO Nfe VALUES('<xMun>Angatuba</xMun>')                &&nome da cidade (C11)
    INSERT INTO Nfe VALUES('<UF>SP</UF>')                        &&codigo do estado tabela IBGE (C12)
    INSERT INTO Nfe VALUES('<CEP>17100171</CEP>')                &&cep (C13)
    INSERT INTO Nfe VALUES('<cPais>1058</cPais>')                &&codigo do pais tabela Bacem (C14)
    INSERT INTO Nfe VALUES('<xPais>Brasil</xPais>')                &&nome do pais (C15)
    INSERT INTO Nfe VALUES('<fone>1733021717</fone>')        &&telefone (C16)
    INSERT INTO Nfe VALUES('</enderEmit>')                        &&fim do grupo enderEmit
    INSERT INTO Nfe VALUES('<IE>123456789012</IE>')                &&inscricao estadual (C17)
    INSERT INTO Nfe VALUES('</emit>')                          &&fim do grupo emit


    *Padrao Elemento XML emit
   
    *<emit>
    *  <CNPJ>99999090910270</CNPJ>
    *  <xNome>NF-e Associacao NF-e</xNome>
    *  <xFant>NF-e</xFant>
    *  <enderEmit>
    *    <xLgr>Rua Central</xLgr>
    *    <nro>100</nro>
    *    <xCpl>Fundos</xCpl>
    *    <xBairro>Distrito Industrial</xBairro>
    *    <cMun>3502200</cMun>
    *    <xMun>Angatuba</xMun>
    *    <UF>SP</UF>
    *    <CEP>17100171</CEP>
    *    <cPais>1058</cPais>
    *    <xPais>Brasil</xPais>
    *    <fone>1733021717</fone>
    *  </enderEmit>
    *  <IE>123456789012</IE>
    *</emit>
   

RETURN

PROCEDURE Dest_NFe

    INSERT INTO Nfe VALUES('<dest>')       
    INSERT INTO Nfe VALUES('<CNPJ>00000000000191</CNPJ>')       
    INSERT INTO Nfe VALUES('<xNome>DISTRIBUIDORA DE AGUAS MINERAIS</xNome>')       
    INSERT INTO Nfe VALUES('<enderDest>')       
    INSERT INTO Nfe VALUES('<xLgr>Rua Central</xLgr>')       
    INSERT INTO Nfe VALUES('<nro>100</nro>')       
    INSERT INTO Nfe VALUES('<xCpl>Fundos</xCpl>')       
    INSERT INTO Nfe VALUES('<xBairro>Distrito Industrial</xBairro>')       
    INSERT INTO Nfe VALUES('<cMun>3502200</cMun>')       
    INSERT INTO Nfe VALUES('<xMun>Angatuba</xMun>')       
    INSERT INTO Nfe VALUES('<UF>SP</UF>')       
    INSERT INTO Nfe VALUES('<CEP>17100171</CEP>')       
    INSERT INTO Nfe VALUES('<cPais>1058</cPais>')       
    INSERT INTO Nfe VALUES('<xPais>Brasil</xPais>')       
    INSERT INTO Nfe VALUES('<fone>1733021717</fone>')       
    INSERT INTO Nfe VALUES('</enderDest>')       
    INSERT INTO Nfe VALUES('<IE></IE>')       
    INSERT INTO Nfe VALUES('</dest>')       


  *Padrao XMK NFe Elemento dest
  *<dest>
  *  <CNPJ>00000000000191</CNPJ>
  *  <xNome>DISTRIBUIDORA DE AGUAS MINERAIS</xNome>
  *  <enderDest>
  *    <xLgr>AV DAS FONTES</xLgr>
  *    <nro>1777</nro>
  *    <xCpl>10 ANDAR</xCpl>
  *    <xBairro>PARQUE FONTES</xBairro>
  *    <cMun>5030801</cMun>
  *    <xMun>Sao Paulo</xMun>
  *    <UF>SP</UF>
  *    <CEP>13950000</CEP>
  *    <cPais>1058</cPais>
  *    <xPais>BRASIL</xPais>
  *    <fone>1932011234</fone>
  *  </enderDest>
  *  <IE></IE>
  *</dest>   

RETURN

PROCEDURE Ret_NFe

    INSERT INTO Nfe VALUES('<retirada>')       
    INSERT INTO Nfe VALUES('<CNPJ>99171171000194</CNPJ>')       
    INSERT INTO Nfe VALUES('<xLgr>AV PAULISTA</xLgr>')       
    INSERT INTO Nfe VALUES('<nro>12345</nro>')       
    INSERT INTO Nfe VALUES('<xCpl>TERREO</xCpl>')       
    INSERT INTO Nfe VALUES('<xBairro>CERQUEIRA CESAR</xBairro>')       
    INSERT INTO Nfe VALUES('<cMun>3550308</cMun>')       
    INSERT INTO Nfe VALUES('<xMun>SAO PAULO</xMun>')       
    INSERT INTO Nfe VALUES('<UF>SP</UF>')       
    INSERT INTO Nfe VALUES('</retirada>')       

    *Padrao XML Elemento retirada
    *<retirada>
    *  <CNPJ>99171171000194</CNPJ>
    *  <xLgr>AV PAULISTA</xLgr>
    *  <nro>12345</nro>
    *  <xCpl>TERREO</xCpl>
    *  <xBairro>CERQUEIRA CESAR</xBairro>
    *  <cMun>3550308</cMun>
    *  <xMun>SAO PAULO</xMun>
    *  <UF>SP</UF>
    *</retirada>   
 

RETURN
 
PROCEDURE Ent_NFe

    INSERT INTO Nfe VALUES('<entrega>')       
    INSERT INTO Nfe VALUES('<CNPJ>99171171000194</CNPJ>')       
    INSERT INTO Nfe VALUES('<xLgr>AV PAULISTA</xLgr>')       
    INSERT INTO Nfe VALUES('<nro>12345</nro>')       
    INSERT INTO Nfe VALUES('<xCpl>TERREO</xCpl>')       
    INSERT INTO Nfe VALUES('<xBairro>CERQUEIRA CESAR</xBairro>')       
    INSERT INTO Nfe VALUES('<cMun>3550308</cMun>')       
    INSERT INTO Nfe VALUES('<xMun>SAO PAULO</xMun>')       
    INSERT INTO Nfe VALUES('<UF>SP</UF>')       
    INSERT INTO Nfe VALUES('</entrega>')       

  *Padrao XML Elemento entrega
  *<entrega>
  *  <CNPJ>99299299000194</CNPJ>
  *  <xLgr>AV FARIA LIMA</xLgr>
  *  <nro>1500</nro>
  *  <xCpl>15 ANDAR</xCpl>
  *  <xBairro>PINHEIROS</xBairro>
  *  <cMun>3550308</cMun>
  *  <xMun>SAO PAULO</xMun>
  *  <UF>SP</UF>
  *</entrega> 
         
RETURN

PROCEDURE Det_Prod

 FOR i=1 TO 2
   
    contador=ALLTRIM(STR(i))
   
    INSERT INTO Nfe VALUES('<det nItem="'+contador+'">')       
    INSERT INTO Nfe VALUES('<prod>')       
    INSERT INTO Nfe VALUES('<cProd>00001</cProd>')       
    INSERT INTO Nfe VALUES('<cEAN />')       
    INSERT INTO Nfe VALUES('<xProd>Agua Mineral</xProd>')       
    INSERT INTO Nfe VALUES('<CFOP>5101</CFOP>')       
    INSERT INTO Nfe VALUES('<uCom>dz</uCom>')       
    INSERT INTO Nfe VALUES('<qCom>1000000.0000</qCom>')       
    INSERT INTO Nfe VALUES('<vUnCom>1</vUnCom>')       
    INSERT INTO Nfe VALUES('<vProd>10000000.00</vProd>')       
    INSERT INTO Nfe VALUES('<cEANTrib />')       
    INSERT INTO Nfe VALUES('<uTrib>und</uTrib>')       
    INSERT INTO Nfe VALUES('<qTrib>12000000.0000</qTrib>')       
    INSERT INTO Nfe VALUES('<vUnTrib>1</vUnTrib>')       
    INSERT INTO Nfe VALUES('</prod>')       
    INSERT INTO Nfe VALUES('<imposto>')       
    INSERT INTO Nfe VALUES('<ICMS>')       
    INSERT INTO Nfe VALUES('<ICMS00>')       
    INSERT INTO Nfe VALUES('<orig>0</orig>')       
    INSERT INTO Nfe VALUES('<CST>00</CST>')       
    INSERT INTO Nfe VALUES('<modBC>0</modBC>')       
    INSERT INTO Nfe VALUES('<vBC>10000000.00</vBC>')       
    INSERT INTO Nfe VALUES('<pICMS>18.00</pICMS>')       
    INSERT INTO Nfe VALUES('<vICMS>1800000.00</vICMS>')       
    INSERT INTO Nfe VALUES('</ICMS00>')       
    INSERT INTO Nfe VALUES('</ICMS>')       
    INSERT INTO Nfe VALUES('<PIS>')       
    INSERT INTO Nfe VALUES('<PISAliq>')       
    INSERT INTO Nfe VALUES('<CST>01</CST>')       
    INSERT INTO Nfe VALUES('<vBC>10000000.00</vBC>')       
    INSERT INTO Nfe VALUES('<pPIS>0.65</pPIS>')       
    INSERT INTO Nfe VALUES('<vPIS>65000</vPIS>')       
    INSERT INTO Nfe VALUES('</PISAliq>')       
    INSERT INTO Nfe VALUES('</PIS>')       
    INSERT INTO Nfe VALUES('<COFINS>')       
    INSERT INTO Nfe VALUES('<COFINSAliq>')       
    INSERT INTO Nfe VALUES('<CST>01</CST>')       
    INSERT INTO Nfe VALUES('<vBC>10000000.00</vBC>')       
    INSERT INTO Nfe VALUES('<pCOFINS>0.65</pCOFINS>')       
    INSERT INTO Nfe VALUES('<vCOFINS>65000</vCOFINS>')       
    INSERT INTO Nfe VALUES('</COFINSAliq>')       
    INSERT INTO Nfe VALUES('</COFINS>')       
    INSERT INTO Nfe VALUES('</imposto>')       
    INSERT INTO Nfe VALUES('</det>')       
 ENDFOR
 
    *Padrao XML Nfe Elemento det para itens da nota variar de 0 a 999
    *deve ficar dentro de um For ou Scan
   
    *<det nItem="1">
    *  <prod>
    *    <cProd>00001</cProd>
    *    <cEAN />
    *    <xProd>Agua Mineral</xProd>
    *    <CFOP>5101</CFOP>
    *    <uCom>dz</uCom>
    *    <qCom>1000000.0000</qCom>
    *    <vUnCom>1</vUnCom>
    *    <vProd>10000000.00</vProd>
    *    <cEANTrib />
    *    <uTrib>und</uTrib>
    *    <qTrib>12000000.0000</qTrib>
    *    <vUnTrib>1</vUnTrib>
    *  </prod>
    *  <imposto>
    *    <ICMS>
    *      <ICMS00>
    *        <orig>0</orig>
    *        <CST>00</CST>
    *        <modBC>0</modBC>
    *        <vBC>10000000.00</vBC>
    *        <pICMS>18.00</pICMS>
    *        <vICMS>1800000.00</vICMS>
    *      </ICMS00>
    *    </ICMS>
    *    <PIS>
    *      <PISAliq>
    *        <CST>01</CST>
    *        <vBC>10000000.00</vBC>
    *        <pPIS>0.65</pPIS>
    *        <vPIS>65000</vPIS>
    *      </PISAliq>
    *    </PIS>
    *    <COFINS>
    *      <COFINSAliq>
    *        <CST>01</CST>
    *        <vBC>10000000.00</vBC>
    *        <pCOFINS>2.00</pCOFINS>
    *        <vCOFINS>200000.00</vCOFINS>
    *      </COFINSAliq>
    *    </COFINS>
    *  </imposto>
    *</det> 
         
RETURN

PROCEDURE Total_NFe

    INSERT INTO Nfe VALUES('<total>')       
    INSERT INTO Nfe VALUES('<ICMSTot>')       
    INSERT INTO Nfe VALUES('<vBC>20000000.00</vBC>')       
    INSERT INTO Nfe VALUES('<vICMS>18.00</vICMS>')       
    INSERT INTO Nfe VALUES('<vBCST>0</vBCST>')       
    INSERT INTO Nfe VALUES('<vST>0</vST>')       
    INSERT INTO Nfe VALUES('<vProd>20000000.00</vProd>')       
    INSERT INTO Nfe VALUES('<vFrete>0</vFrete>')       
    INSERT INTO Nfe VALUES('<vSeg>0</vSeg>')       
    INSERT INTO Nfe VALUES('<vDesc>0</vDesc>')       
    INSERT INTO Nfe VALUES('<vII>0</vII>')       
    INSERT INTO Nfe VALUES('<vIPI>0</vIPI>')       
    INSERT INTO Nfe VALUES('<vPIS>130000.00</vPIS>')       
    INSERT INTO Nfe VALUES('<vCOFINS>400000.00</vCOFINS>')       
    INSERT INTO Nfe VALUES('<vOutro>0</vOutro>')       
    INSERT INTO Nfe VALUES('<vNF>20000000.00</vNF>')       
    INSERT INTO Nfe VALUES('</ICMSTot>')       
    INSERT INTO Nfe VALUES('</total>')       

  *Padrao XML para Nfe Elemento total
  *<total>
  * <ICMSTot>
  *  <vBC>20000000.00</vBC>
  *  <vICMS>18.00</vICMS>
  *  <vBCST>0</vBCST>
  *  <vST>0</vST>
  *  <vProd>20000000.00</vProd>
  *  <vFrete>0</vFrete>
  *  <vSeg>0</vSeg>
  *  <vDesc>0</vDesc>
  *  <vII>0</vII>
  *  <vIPI>0</vIPI>
  *  <vPIS>130000.00</vPIS>
  *  <vCOFINS>400000.00</vCOFINS>
  *  <vOutro>0</vOutro>
  *  <vNF>20000000.00</vNF>
  * </ICMSTot>
  *</total> 
         
RETURN

PROCEDURE Trans_NFe

    INSERT INTO Nfe VALUES('<transp>')       
    INSERT INTO Nfe VALUES('<modFrete>0</modFrete>')       
    INSERT INTO Nfe VALUES('<transporta>')       
    INSERT INTO Nfe VALUES('<CNPJ>99171171000191</CNPJ>')       
    INSERT INTO Nfe VALUES('<xNome>Distribuidora de Bebidas Fazenda de SP Ltda.</xNome>')       
    INSERT INTO Nfe VALUES('<IE>171999999119</IE>')       
    INSERT INTO Nfe VALUES('<xEnder>Rua Central 100 - Fundos - Distrito Industrial</xEnder>')       
    INSERT INTO Nfe VALUES('<xMun>SAO PAULO</xMun>')       
    INSERT INTO Nfe VALUES('<UF>SP</UF>')       
    INSERT INTO Nfe VALUES('</transporta>')       
    INSERT INTO Nfe VALUES('<veicTransp>')       
    INSERT INTO Nfe VALUES('<placa>BXI1717</placa>')       
    INSERT INTO Nfe VALUES('<UF>SP</UF>')       
    INSERT INTO Nfe VALUES('<RNTC>123456789</RNTC>')       
    INSERT INTO Nfe VALUES('</veicTransp>')       
    INSERT INTO Nfe VALUES('<reboque>')       
    INSERT INTO Nfe VALUES('<placa>BXI1717</placa>')       
    INSERT INTO Nfe VALUES('<UF>SP</UF>')       
    INSERT INTO Nfe VALUES('<RNTC>123456789</RNTC>')       
    INSERT INTO Nfe VALUES('</reboque>')       
    INSERT INTO Nfe VALUES('<vol>')       
    INSERT INTO Nfe VALUES('<qVol>10000</qVol>')       
    INSERT INTO Nfe VALUES('<esp>CAIXA</esp>')       
    INSERT INTO Nfe VALUES('<marca>LINDOYA</marca>')       
    INSERT INTO Nfe VALUES('<nVol>500</nVol>')       
    INSERT INTO Nfe VALUES('<pesoL>1000000000.000</pesoL>')       
    INSERT INTO Nfe VALUES('<pesoB>1200000000.000</pesoB>')       
    INSERT INTO Nfe VALUES('<lacres>')       
    INSERT INTO Nfe VALUES('<nLacre>XYZ10231486</nLacre>')       
    INSERT INTO Nfe VALUES('</lacres>')       
    INSERT INTO Nfe VALUES('</vol>')       
    INSERT INTO Nfe VALUES('</transp>')       

SELECT nfe
 
    *Padrao XML para NFe Elemento transp
    *<transp>
    *  <modFrete>0</modFrete>
    *  <transporta>
    *    <CNPJ>99171171000191</CNPJ>
    *    <xNome>Distribuidora de Bebidas Fazenda de SP Ltda.</xNome>
    *    <IE>171999999119</IE>
    *    <xEnder>Rua Central 100 - Fundos - Distrito Industrial</xEnder>
    *    <xMun>SAO PAULO</xMun>
    *    <UF>SP</UF>
    *  </transporta>
    *  <veicTransp>
    *    <placa>BXI1717</placa>
    *    <UF>SP</UF>
    *    <RNTC>123456789</RNTC>
    *  </veicTransp>
    *  <reboque>
    *    <placa>BXI1818</placa>
    *    <UF>SP</UF>
    *    <RNTC>123456789</RNTC>
    *  </reboque>
    *  <vol>
    *    <qVol>10000</qVol>
    *    <esp>CAIXA</esp>
    *    <marca>LINDOYA</marca>
    *    <nVol>500</nVol>
    *    <pesoL>1000000000.000</pesoL>
    *    <pesoB>1200000000.000</pesoB>
    *    <lacres>
    *      <nLacre>XYZ10231486</nLacre>
    *    </lacres>
    *  </vol>
    *</transp>

RETURN

PROCEDURE InfoA_NFe

    INSERT INTO Nfe VALUES('<infAdic>')       
    INSERT INTO Nfe VALUES('<infAdFisco>Nota Fiscal de exemplo NF-eletronica.com</infAdFisco>')       
    INSERT INTO Nfe VALUES('</infAdic>')       

    *Padrao XML para NFe elemento infAdic     
    *<infAdic>
    *  <infAdFisco>Nota Fiscal de exemplo NF-eletronica.com</infAdFisco>
    *</infAdic>
         
RETURN

Pergunta:
Para que este arquivo xml?

Me lembro do seu ultimo topico gerar um recibo com extenso, depois disto vc sumiu faz tempo hein!!!
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Gerar um arquivo XML em VFP 5

Mensagem por Marcos Guedes em 10/3/2011, 17:17

Olá, Clodoaldo!
Quem é vivo sempre aparece, não é?!
rs...

Dá uma olhada nestes teus tópicos em aberto e responda-os como sinal de respeito aos membros que lhe ajudarão:

- [Você precisa estar registrado e conectado para ver este link.]
- [Você precisa estar registrado e conectado para ver este link.]
- [Você precisa estar registrado e conectado para ver este link.]
- [Você precisa estar registrado e conectado para ver este link.]

Obrigado!

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Gerar um arquivo XML em VFP 5

Mensagem por ClodoaldoOliveira em 21/3/2011, 17:17

boa tarde pessoal td bem ?

esta arquivo xml sera usado pelo site de um cliente, a rotina deste site estara lendo o arquivo e atualizando a pagina da web.

me desculpem por ter sumido esta com algumas problemas na familia.

atenciosamente

Clodoaldo Oliveira

ClodoaldoOliveira
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: Gerar um arquivo XML em VFP 5

Mensagem por Marcos Guedes em 21/3/2011, 17:31

[Você precisa estar registrado e conectado para ver este link.] escreveu:Dá uma olhada nestes teus tópicos em aberto e responda-os como sinal de respeito aos membros que lhe ajudarão:

- [Você precisa estar registrado e conectado para ver este link.]
- [Você precisa estar registrado e conectado para ver este link.]
- [Você precisa estar registrado e conectado para ver este link.]
- [Você precisa estar registrado e conectado para ver este link.]

Obrigado!

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum