PC Toledo

Código: Selecionar todos

   If substr(vPdv02,1,1) = "2" //Verificar se o código digitado/scaneado começa com "2"
      If eq->( dbseek(substr(vPdv02,1,5)) )
         If len(alltrim(vPdv02)) = 13 //Caso comece com 2 e tenha 13 caracteres não precisa de pegar o peso, já vem na etiqueta!
           bValor := val(substr(vPdv02,7,6))/100
           vPdv02 := alltrim(str(val(substr(vPdv02,1,5)),5)) //Codigo
           oPdv02 : Refresh() //Usando Hwgui atualiza na tela com o peso
         Else
           bValor := PegaPeso()
           vPdv02 := alltrim(str(val(substr(vPdv02,1,5)),5))
           oPdv02 : Refresh() //Usando Hwgui atualiza na tela com o peso
           lPegouPeso := .t.
         EndIf
         If Empty(bValor)
            MsgStop('Sem Peso.')
            return .f.
         EndIf
      Else
        If MsgYesNo('Produto não cadastrado. Deseja procurar ?')
           PesquisaPDV(20,10,520,400,'eq',{||vPdv02},"vPdv02","oPdv02",,,"Mercadoria","Cod_Mercad","Avista",,03)
        EndIf
        return .f.
      EndIf
   Else
....

*****************
Function PegaPeso
*****************
*
*
Local oDlg, cTitle := 'Lendo o peso da balança...'
LOCAL cString := Chr( 5 )
LOCAL nResult, nPeso

Do While .t.

   oWinPort := win_Com():Init( "com1:", WIN_CBR_2400, WIN_NOPARITY, 8, WIN_ONESTOPBIT )

   IF ! oWinPort:Open()
      MsgStop("Erro lendo peso: " + oWinPort:ErrorText() )
      return 0
   Else
      IF !oWinPort:SetDTR( .T. )
          MsgInfo ( "SetDTR( .T. ) Falha:"+ oWinPort:ErrorText() )
      ENDIF

      IF ( nResult := oWinPort:Write( cString ) ) <> Len( cString ) //Mando o chr(5)
          msginfo( "Falha na escrita: "+ str(nResult) + " expected " + str(Len(cString)) )
      ENDIF
   EndIf

      oWinPort:Read( @xString,7)
      nPeso := val(substr(xString,2,5))/1000

      IF !oWinPort:Purge( .T., .T. )
         msginfo( "Falha no comando Purge()  :" + oWinPort:ErrorText())
      ENDIF
      oWinPort:Close()

   If empty(nPeso)
      MsgStop('Coloque um peso na balança !')
   Else
      exit
   EndIf

EndDo
Return nPeso