MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Exemplo de criar xml para SAT SP

    lukdogdog
    lukdogdog
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 21/06/2012

    [Resolvido]Exemplo de criar xml para SAT SP Empty [Resolvido]Exemplo de criar xml para SAT SP

    Mensagem  lukdogdog 29/7/2016, 00:09

    Olá pessoal, boa noite. Estou precisando que o sistema crie um arquivo das vendas feitas no formato para o "SAT SP" e envie para o sat da Tanca. Alguém teria uma ideia de como elaborar isso ou um exemplo para disponibilizar aqui.
    Desde já grato pela atenção de vocês.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Exemplo de criar xml para SAT SP Empty Re: [Resolvido]Exemplo de criar xml para SAT SP

    Mensagem  FabioPaes 29/7/2016, 02:29

    Amigo, não conheço o Padrão e nem como deve ser gerado o XML... Porem eu criei um exemplo que vai lhe servir como base
    https://www.maximoaccess.com/t26818-exportar-vendas-notas-fiscais-com-delimitador-para-txt
    Nesse Exemplo ele exporta todas as Vendas para um Arquivo txt, mas vc pode mudar o formato, e adaptar para o formato que necessita.

    Veja se lhe ajuda em Algo!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    lukdogdog
    lukdogdog
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 21/06/2012

    [Resolvido]Exemplo de criar xml para SAT SP Empty Re: [Resolvido]Exemplo de criar xml para SAT SP

    Mensagem  lukdogdog 31/8/2016, 16:13

    Olá Fábio Paes, so agora pude ver seu post. Obrigado pela atenção..
    Bem lembrado. Vou verificar certinho isso, pois tenho esses comandos para imprimir recibo de venda, a diferença é que ele abre a porta da impressora, posso estar modificando para abrir e editar o xml.
    Vou fazer as modificações, iniciar os teste dando tudo certo eu posto o resultado aqui.
    Grato pela atenção!!
    lukdogdog
    lukdogdog
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 21/06/2012

    [Resolvido]Exemplo de criar xml para SAT SP Empty Re: [Resolvido]Exemplo de criar xml para SAT SP

    Mensagem  lukdogdog 1/9/2016, 02:08

    Resolvido de como criar o xml com os dados para o sat, penei para achar a solução, mas foi mais simples do que eu pensava. Segue o código pronto para quem precisar. Valeu pela dica FabioPaes

    Crie um módulo coloque

    Option Compare Database

    Function CupomSatPDV()
    nped = forms!vendas!codigo   "Numero da venda
      'Pega informação do inicio do arquivo xml <?xml version="1.0" encoding="UTF-8" ?> dentro do arquivo texto1xml.txt
      myFile1 = Application.CurrentProject.path & "\texto1xml.txt"
      Open myFile1 For Input As #1
      Do Until EOF(1)
      Line Input #1, textline
      texto1xml = Trim(texto1xml & textline)

      Loop
      Close #1

    Open CurrentProject.path & "\Envio_SAT.xml" For Output Access Write As #1



      Debug.Print texto1xml     'Grava informação do xml <?xml version="1.0" encoding="UTF-8" ?> dentro do arquivo txt
    Print #1, Tab(0); texto1xml

    Print #1, Tab(0); "<CFe>";

    Print #1, Tab(0); "       <infCFe versaoDadosEnt=" & """0.07""" & ">";

    Print #1, Tab(0); "       <ide>";

    Print #1, Tab(0); "               <CNPJ>96352541000144</CNPJ>";

    Print #1, Tab(0); "               <signAC>SGR-SAT SISTEMA DE GESTAO E RETAGUARDA DO SAT</signAC>";

    Print #1, Tab(0); "               <numeroCaixa>001</numeroCaixa>";

    Print #1, Tab(0); "       </ide>";

    Print #1, Tab(0); "       <emit>";

    Print #1, Tab(0); "               <CNPJ>96352541000144</CNPJ>";

    Print #1, Tab(0); "               <IE>111111111111</IE>";

    Print #1, Tab(0); "               <indRatISSQN>N</indRatISSQN>";

    Print #1, Tab(0); "       </emit>";

    Print #1, Tab(0); "       <dest>";

    Print #1, Tab(0); "              <CPF></CPF>";

    Print #1, Tab(0); "       </dest>";

    ''selecionar items da venda
    Dim csql As String
    Set bc = CurrentDb
    ' Pega as informações necessárias do item dentro das vendas e produtos
    Set Venda = bc.OpenRecordset("SELECT [venda].produto, [produtos].descricao, [venda].CFOP, [produtos].CSOSNTributado, [produtos].NCM, [venda].icmsv, [venda].cst, [venda].cfop, [venda].[Id venda], [venda].[referência], [venda].Quantidade, [venda].vendauni FROM [Venda] INNER JOIN [produtos] ON [venda].[referência] = [produtos].[ref] WHERE ((([venda].[id Venda])=" & nped & "))", dbOpenDynaset)

    Do While Not Venda.EOF
    If itemv = 0 Then
    itemv = 1
    Else
    itemv = itemv + 1
    End If

    Print #1, Tab(0); "       <det nItem="; """" & itemv; """" & ">";

    Print #1, Tab(0); "               <prod>";

    Print #1, Tab(0); "                       <cProd>123</cProd>";

    Print #1, Tab(0); "                       <xProd>Refrigerante lata 350ml</xProd>";

    Print #1, Tab(0); "                       <NCM>52415241</NCM>";

    Print #1, Tab(0); "                       <CFOP>5102</CFOP>";

    Print #1, Tab(0); "                       <uCom>UN</uCom>";

    Print #1, Tab(0); "                       <qCom>1,00</qCom>";

    Print #1, Tab(0); "                       <vUnCom>1,00</vUnCom>";

    Print #1, Tab(0); "                       <indRegra>A</indRegra>";

    Print #1, Tab(0); "                       <vDesc>0.00</vDesc>";

    Print #1, Tab(0); "                       <vOutro>0.00</vOutro>";

    Print #1, Tab(0); "               </prod>";

    Print #1, Tab(0); "               <imposto>";

    Print #1, Tab(0); "                       <vItem12741>0.00</vItem12741>";

    Print #1, Tab(0); "                       <ICMS>";

    Print #1, Tab(0); "                       <ICMSSN102>";

    Print #1, Tab(0); "                       <Orig>0</Orig>";

    Print #1, Tab(0); "                       <CSOSN>500</CST>";

    Print #1, Tab(0); "                       </CSOSN>";

    Print #1, Tab(0); "                       </ICMSSN102>";

    Print #1, Tab(0); "                       <PIS>";

    Print #1, Tab(0); "                       <PISNT>";

    Print #1, Tab(0); "                       <CST>49</CST>";

    Print #1, Tab(0); "                       </PISNT>";

    Print #1, Tab(0); "                       </PIS>";

    Print #1, Tab(0); "                       <COFINS>";

    Print #1, Tab(0); "                       <COFINSNT>";

    Print #1, Tab(0); "                       <CST>49</CST>";

    Print #1, Tab(0); "                       </COFINSNT>";

    Print #1, Tab(0); "                       </COFINS>";

    Print #1, Tab(0); "               </imposto>";

    Print #1, Tab(0); "       </det>";

    Venda.MoveNext
    Loop
    Venda.Close
    'Finalizou os itens

    'Finalizando a venda
    Print #1, Tab(0); "      <DescAcrEntr>";

    Print #1, Tab(0); "               <vDescSubtot>0.00</vDescSubtot>";

    Print #1, Tab(0); "      </DescAcrEntr>";

    Print #1, Tab(0); "       <total>";

    Print #1, Tab(0); "               <vCFeLei12741>0,49</vCFeLei12741>";

    Print #1, Tab(0); "       </total>";

    Print #1, Tab(0); "       <pgto>";

    Print #1, Tab(0); "               <MP>";

    Print #1, Tab(0); "               <cMP>01</cMP>";

    Print #1, Tab(0); "               <vMP>1,00</vMP>";

    Print #1, Tab(0); "               </MP>";

    Print #1, Tab(0); "       </pgto>";

    Print #1, Tab(0); "       <infAdic>";

    Print #1, Tab(0); "               <infCpl>Obrigado e volte sempre</infCpl>";

    Print #1, Tab(0); "       </infAdic>";

    Print #1, Tab(0); "       </infCFe>";

    Print #1, Tab(0); "</CFe>";

    Close #1
    End Function

    No form que for usar para emitir o cupom fiscal sat coloque o comando no botão ao clicar Call CupomSatPDV
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Exemplo de criar xml para SAT SP Empty Re: [Resolvido]Exemplo de criar xml para SAT SP

    Mensagem  FabioPaes 1/9/2016, 12:17

    Bacana meu amigo, caso lhe interese mante um exemplo e coloca la na sala de Repositorios...

    Ate a proxima se Deus quiser.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado


    [Resolvido]Exemplo de criar xml para SAT SP Empty Re: [Resolvido]Exemplo de criar xml para SAT SP

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 07:14