Buenas noches compa帽eros quisiera saber como puedo solucionar este problema, tengo este reporte
como ver谩n lo que pretendo es que me muestre el total del proveedor en las distintas monedas que le compramos, en el primer caso no pone la moneda
en el total solo del proveedor , porque a este proveedor solo le comparamos en d贸lares y al no haber otra no la lee la siguiente y corta el reporte parcial
Pero en el segundo caso proveedor BDV que le compramos con tres monedas diferentes en los totales me pone la moneda siguiente y no la que corresponde, aqu铆 les env铆o el c贸digo que escrib铆
Como tengo que poner en el c贸digo para que me ponga en el total de la moneda el s铆mbolo correcto
Este c贸digo lo pude hacer gracias al foro y lo saqu茅 del siguiente enlace
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=39938&start=0&hilit=report+on+group&sid=a55fc80dec2e9ca60e2397b6454e5100
Desde ya muchas gracias
Luis
como ver谩n lo que pretendo es que me muestre el total del proveedor en las distintas monedas que le compramos, en el primer caso no pone la moneda
en el total solo del proveedor , porque a este proveedor solo le comparamos en d贸lares y al no haber otra no la lee la siguiente y corta el reporte parcial
Pero en el segundo caso proveedor BDV que le compramos con tres monedas diferentes en los totales me pone la moneda siguiente y no la que corresponde, aqu铆 les env铆o el c贸digo que escrib铆
IF !PASAJE("proext"); RETURN nil;ENDIF
****************************
set order to tag provmon
dbgotop()
DEFINE FONT oFont NAME "ARIAL" SIZE 0,10
REPORT oprn TITLE "QUIMICA MEGA S.A." oFont preview
COLUMN TITLE "Fecha embarque" DATA transform(fecbarco,"@d")
GROUP ON field->proveedor FOOTER "Total " + oprn:aGroups[1]:cValue
COLUMN TITLE "Factura" data factura
COLUMN TITLE "Pedido" data pedido
COLUMN TITLE " " data monsim
GROUP ON field->moneda FOOTER ("Total " + monsim + Space(3) ) 聽+ oprn:aGroups[1]:cValue
COLUMN TITLE "Importe" DATA 聽fobdivisa 聽PICTURE "@e 999,999,999.99" 聽TOTAL RIGHT
COLUMN TITLE "Vto" DATA vtodfac(pedido,oCobranza) PICTURE "@d"
COLUMN TITLE "D贸lar" DATA dolar
END REPORT
oprn:bfor := 聽{|| fecbarco >= dresult[1] .AND. fecbarco <= dresult[2] } 聽 聽 聽 聽 聽 聽//.AND. importe # 0}
ACTIVATE REPORT oprn for field->importe != 0 聽ON STARTGROUP oprn:NewLine() ;
聽 聽// ON ENDGROUP ( if( (oprn:aGroups[1]:cValue != field -> proveedor .and. oGrp:nOrder = 1), oprn:Endgroup(2), ))
oFont:end()
cierroalias(alias())
return nilEste c贸digo lo pude hacer gracias al foro y lo saqu茅 del siguiente enlace
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=39938&start=0&hilit=report+on+group&sid=a55fc80dec2e9ca60e2397b6454e5100
Desde ya muchas gracias
Luis