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í
Code: Select all | Expand
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/view ... b6454e5100
Desde ya muchas gracias
Luis