[rastafarey]

No es solo copiar y pegar verifiquen las sisntaxis que escribi een un cyber y no lo probe.

Código SQL [-]
Create Procedure "Nombre"
Return(
  "Mayoreo" Doble Presicion,
  "Menudeo" Doble Presicion
)
As 
  Declare Variable "C" char;
  Declare Variable "T" Doble Presicion
Begin
  For Select "Total", "Mayoreo" From "Ventas" Into :"T", :"C" Do Begin
    "Mayoreo" = Null;
    "Menudeo" = Null;
    If ("C" = 'M') Then
      "Mayoreo" = "T";
    Else
      "Menudeo" = "T";
    Suspend;
  End 
End