How to create Draft Document in CR

Question

Hi all,
I try to create draft document in CR using store procedure script.
So i can preview the document if it's in draft mode and non draft mode.
When i preview it in draft mode , every thing is ok
But when i preview it in non draft mode, the draft and non draft data combine together.
Here is my code
Create Procedure PO
@Dockey numeric(19,6)
@ObjectId numeric(19,6)
as
begin
select PO.* from
  select 'DR' as tipedoc,ODRF.DocNum ,ODRF.DocEntry ,ODRF.CardCode,ODRF.CardName,ODRF.ObjType ,
      ODRF.DocDate,TaxDate, DRF1.ItemCode as itemcode, DRF1.Quantity ,DRF1.unitMsr ,
     OITM.ItemName ,OITM.CodeBars
          from          ODRF
          inner join  DRF1 on ODRF.DocEntry = DRF1.DocEntry
          inner join     OITM on DRF1.ItemCode = OITM.ItemCode
     where ODRF.ObjType = 22
union all
   select 'ND' as tipedoc,OPOR.DocNum ,OPOR.DocEntry ,OPOR.CardCode,OPOR.CardName,OPOR.ObjType ,
      OPOR.DocDate,TaxDate, POR1.ItemCode as Itemcode, POR1.Quantity ,POR1.unitMsr ,
     OITM.ItemName ,OITM.CodeBars
          from          OPOR
          inner join  POR1 on OPOR.DocEntry = POR1.DocEntry
          inner join     OITM on POR1.ItemCode = OITM.ItemCode
)PO
where PO.docentry = @Dockey
and PO.Objtype = @ObjectId
end
Do i miss some thing in my code
Thanks in advance
Regards
Kahkian

Answer 1

Hello, I think something more efficent could be like this: (ignore the RFQ calculation as it is for integration with an external database other than SAP Business ONE)
create
procedure SP_PO_FORMAT
@DOCKEY
INTEGER,
@OBJECTID
INTEGER
AS
if
@OBJECTID = 112 begin
select
t0.docentry,T0.docnum,T0.lictradnum,T0.address,T0.address2, T0.CardCode, T0.CardName, T0.DocDate, T0.DocDueDate, T0.comments,T2.slpname,T3.officetel,T3.email,T4.pymntgroup,T5.firstname, T5.lastname, T5.E_MailL, T5.tel1,
case
when T0.doccur = 'USD' THEN T0.DocTotalFC ELSE T0.DocTotal END AS DOCTOTAL, case when T0.doccur = 'USD' THEN T0.vatsumfc ELSE T0.vatsum END AS vatsum,T0.DocCur,
case
when T0.Comments like 'Basada en Cotizacion a Proveedores%' then
case when ISNUMERIC(SUBSTRING(T0.comments,36,CHARINDEX('.',T0.comments,1)-36)) = 1
then convert(int,SUBSTRING(T0.comments,36,CHARINDEX('.',T0.comments,1)-36))
else
case when T0.Comments like 'Basada en solucitud de eProcurement%'
then
case when ISNUMERIC(SUBSTRING(T0.comments,37,CHARINDEX('.',T0.comments,1)-37)) = 1
then convert(int,SUBSTRING(T0.comments,37,CHARINDEX('.',T0.comments,1)-37))
else 0
end
else 0
end
end
else
case
when T0.Comments like 'Basada en solucitud de eProcurement%'
then
case when ISNUMERIC(SUBSTRING(T0.comments,37,CHARINDEX('.',T0.comments,1)-37)) = 1
then convert(int,SUBSTRING(T0.comments,37,CHARINDEX('.',T0.comments,1)-37))
else 0
end
else 0
end
end
as rfq,
T1
.LineNum,
T1
.ItemCode, T1.Dscription, T1.freetxt,T1.unitmsr,T1.Quantity,T1.packqty, T1.Price, T1.vatprcnt,case when T0.doccur = 'USD' THEN T1.totalfrgn else T1.linetotal end as linetotal from sbo_mno.dbo.ODRF T0
inner
join sbo_mno.dbo.DRF1 T1 on T0.DocEntry = T1.DocEntry
left
join OSLP T2 on T0.slpcode = T2.slpcode
left
join OHEM T3 on T2.slpcode = T3.salesprson
left
join OCTG T4 on T0.groupnum= T4.groupnum
left
join OCPR T5 on T0.cntctcode = T5.cntctcode
where
T0.Docentry = @DOCKEY
END
ELSE
select
t0.docentry,T0.docnum,T0.lictradnum,T0.address,T0.address2, T0.CardCode, T0.CardName, T0.DocDate, T0.DocDueDate, T0.comments,T2.slpname,T3.officetel,T3.email,T4.pymntgroup,T5.firstname, T5.lastname, T5.E_MailL, T5.tel1,
case
when T0.doccur = 'USD' THEN T0.DocTotalFC ELSE T0.DocTotal END AS DOCTOTAL, case when T0.doccur = 'USD' THEN T0.vatsumfc ELSE T0.vatsum END AS vatsum,T0.DocCur,
case
when T0.Comments like 'Basada en Cotizacion a Proveedores%' then
case when ISNUMERIC(SUBSTRING(T0.comments,36,CHARINDEX('.',T0.comments,1)-36)) = 1
then convert(int,SUBSTRING(T0.comments,36,CHARINDEX('.',T0.comments,1)-36))
else
case when T0.Comments like 'Basada en solucitud de eProcurement%'
then
case when ISNUMERIC(SUBSTRING(T0.comments,37,CHARINDEX('.',T0.comments,1)-37)) = 1
then convert(int,SUBSTRING(T0.comments,37,CHARINDEX('.',T0.comments,1)-37))
else 0
end
else 0
end
end
else
case
when T0.Comments like 'Basada en solucitud de eProcurement%'
then
case when ISNUMERIC(SUBSTRING(T0.comments,37,CHARINDEX('.',T0.comments,1)-37)) = 1
then convert(int,SUBSTRING(T0.comments,37,CHARINDEX('.',T0.comments,1)-37))
else 0
end
else 0
end
end
as rfq,
T1
.LineNum,
T1
.ItemCode, T1.Dscription, T1.freetxt,T1.unitmsr,T1.Quantity,T1.packqty, T1.Price, T1.vatprcnt,case when T0.doccur = 'USD' THEN T1.totalfrgn else T1.linetotal end as linetotal from sbo_mno.dbo.OPOR T0
inner
join sbo_mno.dbo.POR1 T1 on T0.DocEntry = T1.DocEntry
left
join OSLP T2 on T0.slpcode = T2.slpcode
left
join OHEM T3 on T2.slpcode = T3.salesprson
left
join OCTG T4 on T0.groupnum= T4.groupnum
left
join OCPR T5 on T0.cntctcode = T5.cntctcode
where
T0.Docentry = @DOCKEY