PC Toledo

Código: Selecionar todos

   local iretorno,nlib32
   local pszCargaTributaria,pszQuantidade,pszPrecoUnitario,pszTipoDescAcresc,pszValorDescAcresc,pszCodigoItem,pszUnidadeMedida,pszDescricaoItem
   nLib32 := LoadLibrary( "DarumaFrameWork.dll" ) 
   pszCargaTributaria := "F1"
   pszQuantidade      := 10
   pszPrecoUnitario   := 010
   pszTipoDescAcresc  := "D%"
   pszValorDescAcresc := 000
   pszCodigoItem      := "7891027116446"
   pszUnidadeMedida   := "UN"
   pszDescricaoItem   := "CAFÉ BRASILEIRO"
   iretorno :=  DllCall( nLib32, 32, 'iCFVender_ECF_Daruma',pszCargaTributaria,pszQuantidade,pszPrecoUnitario,pszTipoDescAcresc,pszValorDescAcresc,pszCodigoItem,pszUnidadeMedida,pszDescricaoItem )
   if iretorno = 0
      messagebox( , "Erro do Envio do Produto !!!" , "Impressora Fiscal..." , MB_ICONERROR )
      return .f.
   else
      messagebox( , alltrim(str(iretorno)) )
   endif