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
se alguem puder me ajudar fico agradecido.

