//------------------------------------------------
Function Ler_Html_Itens(cFileDanfe,cCodiForne)
Local Linha      := Memoread(cFileDanfe)
Local cCGcEmit   := ''
 //Close All


 Sele Forneced
      OrdSetFocus('Forneced')
      Go top
      Seek cCodiForne
      If Found()
         cCGcEmit := StrZero(val(Forneced->Cgc),14)
      Endif
      

 Sele 153
      Use c:\temp\Danfe EXCLUSIVE
      Zap

      nLinhalidas := 0
      Linhatotal  := Len(Linha)
      cLinhaTxt   := Linha

      lLancaItemValorLiquido := .f.
    
      IF MsgConf("Informa Total Liquido do Item ?"+chr(10)+;
                        '(-) VALOR ICMS '+CHR(10)+;
                        '(-) VALOR IPI       ', "2") == .t.
          lLancaItemValorLiquido := .t.
      Endif



      Do While .t.
            cLidos     := PegaDados_Html_Itens('style="width: 56%;"><span class="linha">',Alltrim(cLinhaTxt),.T.,'style="width: 56%;"><span class="linha">' )
           *MemoEdit(cLidos,01,1,25,80,.T.,"",80)

            Linha      := cLidos
            cDadosItem := cLidos
            If Linha=='0'
               Exit
            Endif

            mxProd    := Substr(cLidos,1,At('</span>',cLidos)-1)
            mcprod    := PegaDados_Html_Itens('Código do Produto <br /></span><span class="linha">',Alltrim(cDadosItem) ,.f.,'</span>')
            mCProd    := Alltrim(Str(val(mCProd),16))
            mqcom     := PegaDados_Html_Itens('Quantidade Comercial<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>') 
            M_NCM     := PegaDados_Html_Itens('Código NCM<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
           *mvprod    := PegaDados_Html_Itens('Valor unitário de comercialização<br /></span><span class="linha">',Alltrim(cDadosItem) ,.f.,'</span>')
            mvprod    := PegaDados_Html_Itens('</td><td valign="top" style="width: 20%;"><span class="linha">',Alltrim(cDadosItem) ,.f.,'</span>')
            mCFOP     := PegaDados_Html_Itens('CFOP<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            m_vBc     := PegaDados_Html_Itens('Base de Cálculo<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            mvIcms    := PegaDados_Html_Itens('Valor<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            m_vBCST   := PegaDados_Html_Itens('Valor da BC do ICMS ST<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            m_vICMSST := PegaDados_Html_Itens('Valor do ICMS ST<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            m_cst     := PegaDados_Html_Itens('Tributação do ICMS <br /></span><span class="linha">',Alltrim(cDadosItem) ,.f.,'</span>')
            mPIcms    := PegaDados_Html_Itens('Alíquota<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            If Alltrim(m_cst)=='0'
               m_cst     := PegaDados_Html_Itens('Tributação do ICMS<br /></span><span class="linha">',Alltrim(cDadosItem) ,.f.,'</span>')
            Endif

            m_cst     := Substr(Alltrim(m_cst),1,3)

            If Alltrim(m_cst)=='10'
               mvIcms    := PegaDados_Html_Itens('Valor do ICMS Normal<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
               m_vBc     := PegaDados_Html_Itens('Base de Cálculo do ICMS Normal<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
               mPIcms    := PegaDados_Html_Itens('Alíquota ICMS Normal <br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
               m_vBCST   := PegaDados_Html_Itens('Base de Cálculo do ICMS ST<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
               m_vICMSST := PegaDados_Html_Itens('Valor do ICMS ST <br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            Endif

            mcean     := PegaDados_Html_Itens('Código EAN Comercial<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            mvDesc    := PegaDados_Html_Itens('Valor do Desconto<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            mvuncom   := PegaDados_Html_Itens('Quantidade Comercial<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            m_uCom    := PegaDados_Html_Itens('Unidade Comercial<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            m_org     := PegaDados_Html_Itens('Origem da Mercadoria<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            m_org     := Substr(Alltrim(m_org),1,1)
            M_pRedBCST:= PegaDados_Html_Itens('Percentual Redução de BC do ICMS Normal <br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            M_pMVAST  := PegaDados_Html_Itens('Percentual do MVA do ICMS ST<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            m_VIPI     := PegaDados_Html_Itens('Valor IPI<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
           *mVpis     := PegaDados_Html_Itens('Valor IPI<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
           *mVCofins  := PegaDados_Html_Itens('Valor IPI<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')



            // Teste Bimbo CST 51

            *m_vBc     := PegaDados_Html_Itens('Base de Cálculo do ICMS Normal<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')
            *mvIcms    := PegaDados_Html_Itens('Valor do ICMS Normal<br /></span><span class="linha">' ,Alltrim(cDadosItem) ,.f.,'</span>')


            *? M_NCM+" "+mqcom+' '+mvprod +' '+mxProd+' '+mCFOP+' '+m_vBCST+' '+m_vICMSST
            *? mcprod+' '+m_cst+' '+mPIcms+' '+m_vBc +' '+mvIcms
            *? '--------------------------------------------------------'
            *iNKEY(0)
            Centra(24,'Lendo Item....'+mxProd)

            //----
            mqcom     := Val(mqcom)
            mvDesc    := Val(LimpaPonto(mvDesc))   /100
            mvprod    := Val(LimpaPonto(mvprod))   /100
            mvuncom   := Val(LimpaPonto(mvuncom))  /10000
            m_vBCST   := Val(LimpaPonto(m_vBCST))  /100
            m_vICMSST := Val(LimpaPonto(m_vICMSST))/100
            mPIcms    := Val(LimpaPonto(mPIcms))   /100
            m_vBc     := Val(LimpaPonto(m_vBc))    /100
            mvIcms    := Val(LimpaPonto(mvIcms))   /100
            m_VIPI    := Val(LimpaPonto(m_VIPI))   /100
            M_pMVAST  := Val(LimpaPonto(M_pMVAST)) / 100
            M_pRedBCST:= Val(LimpaPonto(M_pRedBCST)) / 100

            mVCofins  := 0
            mVpis     := 0
            M_pRedBC  := 0
            cChave    := ''
            ok        := .t.


            If lLancaItemValorLiquido ==.t.
                mvprod := mvprod-m_VIPI-m_vICMSST
            Endif


            If !Empty(mcprod) .and. ok
                    Sele Danfe
                         Append Blank
                         Repla Danfe->Id          With Substr(cChave,4,47)
                         Repla Danfe->cnpj        With cCGcEmit
                         Repla Danfe->xprod       With mxProd
                         Repla Danfe->cean        With mcean
                         Repla Danfe->cprod       With mcprod
                         Repla Danfe->qcom        With mqcom
                         Repla Danfe->vDesc       With mvDesc
                         Repla Danfe->vprod       With mvprod-mvDesc
                         Repla Danfe->vuncom      With mvuncom
                         Repla Danfe->vIcms       With mvIcms
                         Repla Danfe->pIcms       With mPIcms
                         Repla Danfe->vPis        With mVpis
                         Repla Danfe->vCofins     With mVCofins
                         Repla Danfe->CFOP        With mCfop
                         Repla Danfe->uCom        With Upper(m_uCom)
                         Repla Danfe->Cst         With m_org+m_cst
                         Repla Danfe->vBc         With m_vBc
                         Repla Danfe->vBCST       With m_vBCST
                         Repla Danfe->pMVAST      With M_pMVAST
                         Repla Danfe->pRedBC      With M_pRedBC
                         Repla Danfe->pRedBCST    With M_pRedBCST
                         Repla Danfe->NCM         With M_NCM
                         Repla Danfe->vICMSST     With m_vICMSST
                         repla Danfe->vipi        With m_VIPI
                         Commit
            Endif
            nSize         := Linhatotal-nLinhaLidas
            cLinha        := Right(cLinhaTxt,nSize)
            cLinhaTxt     := cLinha
            If nLinhaLidas >= Linhatotal
               Exit
            Endif
    Enddo
    m_Razao := ''
    m_cNF   := ''
    m_serie := ''
Return Nil

//------------------------------------------------------
Static Function PegaDados_Html_Itens(cProc,cLinha,lItem,cTexto2)
Local InicioDoDado := cProc
Local FinalDoDado  := cTexto2
Local nPosIni      := At(InicioDoDado,cLinha)
Local cRet         := '0'
Local x
If nPosIni==0 //.or. nPosFinal==0
   Return cRet
Endif

nInicio    := nPosIni+Len(IniciodoDado)
nTrecho    := Linhatotal//-nLinhalidas
cTrecho1   := Substr(cLinha,nInicio,nTrecho)
nFinal     := At(FinalDoDado,cTrecho1)
If nFinal==0
   nFinal := Linhatotal
 //Return cRet
Endif
cRet       := Substr(cLinha,nInicio,nFinal-1)
If lItem ==.t.
   nLinhalidas  += nFinal+nInicio-(Len(IniciodoDado))
Endif
Return  ( cRet)



//----------------------------------------------------
Static Function LimpaPonto(cPega)
Local x
c:= StrTran(cPega,',','')
x:= StrTran(c,'.','')
Return X