Jump to content
Fivewin Brasil

Eroni

Membros
 View Profile  See their activity

  • Posts

    561

  • Joined

  • Last visited

  • Days Won

    6

 Content Type 

Posts posted by Eroni

  5. XMl de venda para fora do Estado

    in Programação

    Posted

    <?xml version="1.0" encoding="UTF-8"?>
    <NFe xmlns="http://www.portalfiscal.inf.br/nfe"><infNFe versao="3.10" Id="NFe42180204075526000191550010000039101000039100">
    <ide>
    <cUF>42</cUF>
    <cNF>00003910</cNF>
    <natOp>UF-VENDA MERCADORIA ADQUIRIDA OU RECEBIDA DE TERCEIROS</natOp>
    <indPag>1</indPag>
    <mod>55</mod>
    <serie>1</serie>
    <nNF>3910</nNF>
    <dhEmi>2018-02-12T16:01:06-02:00</dhEmi>
    <dhSaiEnt>2018-02-12T16:01:06-02:00</dhSaiEnt>
    <tpNF>1</tpNF>
    <idDest>2</idDest>
    <cMunFG>4204608</cMunFG>
    <tpImp>1</tpImp>
    <tpEmis>1</tpEmis>
    <cDV>0</cDV>
    <tpAmb>2</tpAmb>
    <finNFe>1</finNFe>
    <indFinal>1</indFinal>
    <indPres>9</indPres>
    <procEmi>0</procEmi>
    <verProc>NF-eletronica.com</verProc>
    </ide>
    <emit>
    <CNPJ>04075526000191</CNPJ>
    <xNome>LUBRISUL COM. LUBRIFICANTES EIRELI EPP</xNome>
    <xFant>LUBRISUL COM. LUBRIFICANTES EIRELI EPP</xFant>
    <enderEmit>
    <xLgr>ROD. LUIZ ROSSO</xLgr>
    <nro>135</nro>
    <xCpl>SALA 01</xCpl>
    <xBairro>SAO LUIZ</xBairro>
    <cMun>4204608</cMun>
    <xMun>Criciuma</xMun>
    <UF>SC</UF>
    <CEP>88803470</CEP>
    <cPais>1058</cPais>
    <xPais>BRASIL</xPais>
    <fone>4834372829</fone>
    </enderEmit>
    <IE>254114890</IE>
    <CRT>3</CRT>
    </emit>
    <dest>
    <CNPJ>01618972000107</CNPJ>
    <xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome>
    <enderDest>
    <xLgr>RUA MONTEIRO LOBATO</xLgr>
    <nro>48</nro>
    <xBairro>NOVO ESTEIO</xBairro>
    <cMun>4307708</cMun>
    <xMun>Esteio</xMun>
    <UF>RS</UF>
    <CEP>93270020</CEP>
    <cPais>1058</cPais>
    <xPais>BRASIL</xPais>
    <fone>5113473361</fone>
    </enderDest>
    <indIEDest>9</indIEDest>
    <IE>0430075146</IE>
    </dest>
    <det nItem="1">
    <prod>
    <cProd>000050</cProd>
    <cEAN></cEAN>
    <xProd>LUBRAX ATF TA - 500 ML  .</xProd>
    <NCM>27101932</NCM>
    <CFOP>6102</CFOP>
    <uCom>UN</uCom>
    <qCom>100.0000</qCom>
    <vUnCom>10.0000</vUnCom>
    <vProd>1000.00</vProd>
    <cEANTrib></cEANTrib>
    <uTrib>UN</uTrib>
    <qTrib>100.0000</qTrib>
    <vUnTrib>10.0000</vUnTrib>
    <indTot>1</indTot>
    </prod>
    <imposto>
    <vTotTrib>0</vTotTrib>
    <ICMS>
    <ICMS00>
    <orig>0</orig>
    <CST>00</CST>
    <modBC>3</modBC>
    <vBC>1000.00</vBC>
    <pICMS>12.00</pICMS>
    <vICMS>120.00</vICMS>
    </ICMS00>
    </ICMS>
    <IPI>
    <cEnq>999</cEnq>
    <IPITrib>
    <CST>99</CST>
    <vBC>0</vBC>
    <pIPI>0</pIPI>
    <vIPI>0</vIPI>
    </IPITrib>
    </IPI>
    <PIS>
    <PISAliq>
    <CST>01</CST>
    <vBC>1000.00</vBC>
    <pPIS>0</pPIS>
    <vPIS>0</vPIS>
    </PISAliq>
    </PIS>
    <COFINS>
    <COFINSAliq>
    <CST>01</CST>
    <vBC>1000.00</vBC>
    <pCOFINS>0</pCOFINS>
    <vCOFINS>0</vCOFINS>
    </COFINSAliq>
    </COFINS>
    <ICMSUFDest>
    <vBCUFDest>1000.00</vBCUFDest>
    <pFCPUFDest>2.00</pFCPUFDest>
    <pICMSUFDest>18.00</pICMSUFDest>
    <pICMSInter>12.00</pICMSInter>
    <pICMSInterPart>80.00</pICMSInterPart>
    <vFCPUFDest>20.00</vFCPUFDest>
    <vICMSUFDest>48.00</vICMSUFDest>
    <vICMSUFRemet>12.00</vICMSUFRemet>
    </ICMSUFDest>
    </imposto>
    </det>
    <total>
    <ICMSTot>
    <vBC>1000.00</vBC>
    <vICMS>120.00</vICMS>
    <vICMSDeson>0</vICMSDeson>
    <vFCPUFDest>20.00</vFCPUFDest>
    <vICMSUFDest>48.00</vICMSUFDest>
    <vICMSUFRemet>12.00</vICMSUFRemet>
    <vBCST>0</vBCST>
    <vST>0</vST>
    <vProd>1000.00</vProd>
    <vFrete>0</vFrete>
    <vSeg>0</vSeg>
    <vDesc>0</vDesc>
    <vII>0</vII>
    <vIPI>0</vIPI>
    <vPIS>0</vPIS>
    <vCOFINS>0</vCOFINS>
    <vOutro>0</vOutro>
    <vNF>1000.00</vNF>
    </ICMSTot>
    </total>
    <transp>
    <modFrete>0</modFrete>
    </transp>
    <cobr>
    <dup>
    <nDup>3910/01</nDup>
    <dVenc>2018-03-12</dVenc>
    <vDup>1000.00</vDup>
    </dup>
    </cobr>
    <infAdic>
    <infCpl>O.C. ;;;Valor aproximado de tributos R$ 314,50 (31,45%) Fonte: IBPT.</infCpl>
    </infAdic></infNFe>
    </NFe>

  9. COMO CORRIGIR ISSO? DOWNLOAD NFE

    in Programação

    Posted

     

    "onde sua rotina baixa automaticamente o xml da nfe?"

    Não é bem automático, é acionado pelo usuario que depois salva em uma pasta. Tenho uma tela que mostra as notas enviadas onde o usuário seleciona as notas e faz a consulta. Nesta mesma tela tem um botão "Download". A chave é capturada do browse que tem nesta tela.

    "como minha rotina acima, e o unico problema da minha rotina, é que não espera a digitação do captcha, e minha duvida como fazer aguardar"

    No meu caso, o usuário digita o captcha manualmente e clica em "Download" na própria tela do site.

     

     

     

     

     

  10. Do While com macro

    in Programação

    Posted

    Boa tarde, minha recomendação é que abandone macros e outras similaridades. Use bloco de código, tipo assim:

    bBlock := {|| Str(folfun->Fun_Codemp,4)+Str(folfun->fun_alocac,8) >= Str(M->vCodemp,4)+Str(Codigo1,8) .and. Str(folfun->Fun_Codemp,4)+Str(folfun->fun_alocac,8)<=Str(M->vCodemp,4)+Str(Codigo2,8) .and. !folfun->(eof()) }

    do while eval( bBlock )

        skip

    enddo

     

    ou então assim:

    bBlock := {|| Str(folfun->Fun_Codemp,4)+Str(folfun->fun_alocac,8) >= Str(M->vCodemp,4)+Str(Codigo1,8) .and. Str(folfun->Fun_Codemp,4)+Str(folfun->fun_alocac,8)<=Str(M->vCodemp,4)+Str(Codigo2,8)  }

    do while !eof()

        if eval( bBlock )

             apagar().......

        endif

        skip

    enddo

    Já li a muitos atrás ( Rick Spence, 1990 e poucos ) que bloco de código executa milhares de vezes mais rápido do que macro.

    Mas cada um tem sua maneira, é apenas uma sujestão.

  11. COMO CORRIGIR ISSO? DOWNLOAD NFE

    in Programação

    Posted

    O meu código é bem pequeno e funciona, pelo menos nunca reclamaram:

    STATIC FUNCTION  _StartBaixaSite( oBro )
        LOCAL oForm, oActivex, oWnd
        LOCAL cHtml := "https://www.sefaz.rs.gov.br/SSL_Client/NFE-CER-CON.aspx"
        LOCAL oClp
        LOCAL cChave := "123456................"

        Alert( "Na janela a seguir, clique com o botão direito do mouse e clique em colar para informar a chave da Nfe." )

        DEFINE CLIPBOARD oClp

        oClp:SetText( cChave )

       oWnd := TWindow():New( 0,0,10,60, "Download Xml",,,,,,,,,,,, !.F., !.F., !.F., !.F., .F. )

        oActiveX := TActiveX():New( oWnd, "Shell.Explorer" )

       oActiveX:Do( "navigate", cHtml )

       ACTIVATE WINDOW oWnd Valid oWnd:END()

      oClp:END()

    Return( nil )

  12. Rotina para gravar backup Google Drive - Resolvido

    in Programação

    Posted

    Boa tarde galera, ressuscitando o tópico, sei que não é o mais recomentado, mas......

    Estou tentando aproveitar este código:

    http://forums.fivetechsupport.com/viewtopic.php?f=6&t=25638&hilit=oauth#p139863

    Para tentar obter a autenticidade (token) para tentar comunicar com o servidor da prefeitura de Florianópolis que usa o padrão OAuth também, recebo a mensagem ao executar o exemplo:

    "A execução de código não pode continuar porque LIBCURL.DLL não foi encontrado....."

    Alguém já...?

    Grato.

  17. Imprimir arquivo.html

    in Programação

    Posted

     

    fonte: http://www.tek-tips.com/viewthread.cfm?qid=1092473 

    
Function testeimp()
Local oOle

 oOle:= CreateObject("InternetExplorer.Application")
 oOle:Visible    := .f.   // nao Apresenta o Browser

 oOle:Navigate2("http://www.google.com.br")

 WHILE oOle:Busy
   syswait(.3)
 END

 oOle:ExecWB(6,2)

return nil

    Boa tarde, revivendo o tópico, alguem saberia me dizer se esse codigo acima roda em qualquer Windows, no meu 10 está dando o erro:


    Código           : 1001
    Descrição do Erro:
    =================
    Erro InternetExplorer.Application/0  S_OK: EXECWB

    Código: 1001
    Detalhamento:
    ------------
    Arg. 1      Tipo: N Valor: 6
    Arg. 2      Tipo: N Valor: 2

    Chamada de Pilha
    ================
    Chamado de TOLEAUTO:EXECWB(0)

     

    Alguem já passou por isso?

  18. Problemas, com MYSQL em Servidor Linux DEBIAN 8.7.1 Gnome

    in Programação

    Posted

    Boa tarde, faz muito tempo que não uso sqllib, mas deve ter alguma forma de você trabalhar com transação, tipo assim:

    // Comando de Iniciar a transação

    < seus comandos insert, delete update >

    // Comando de encerrar a transação

    Desta forma você garante a integridade de todo o bloco de gravação das informações, ou grava tudo ou não grava.

     

    Eu trabalho sempre assim. mas uso outro RDD não sei como é na sqllib. De qualquer fora, o que está faltando no seu código é o commit ao final.

     

     

  19. Problemas, com MYSQL em Servidor Linux DEBIAN 8.7.1 Gnome

    in Programação

    Posted

    Bom dia ,

    Me parece que você não está usando transação e o mysql está configurado para não dar o autocommit. Reveja estes conceitos, geralmente as instalações em Windows já vem com o padrão autocommit, diferente do Linux. Quando você fecha o sistema, ao desconectar o banco já faz um commit de tudo que está pendente. Você não especificou qual RDD que está usando, se especificar quem sabe posso ajudar mais.

    Abraço.

  25. Arquivo.HRB

    in Programação

    Posted

    A idéia é criar um exe pequeno e um repositorio de fontes, quando precisar atualizar no cliente, atualiza o repositório, com outro nome, sem ninguem sair do sistema e configura aquele usuario tal que precisa da atualização para abrir o repositorio direcionado para o novo. Mas como colocar varios prg de dentro de um mesmo hrb ou outra forma é que não consegui ainda.

×
×
  • Create New...