layou de colunas em xbrowse c

[marcioe]

amigos, como fazer o cabecalho do xbrowse com essa caracteristica

vejam que a data 24/06/13 TEM 02 'SUB-CABECALHO' 

 

 

agradeço aos amigos.

[SAOliveira]

    oBrw:=TXBROWSE():NEW(oDlg)
        oBrw:CreateFromResource(201)
        oBrw:cAlias('NFEITEM')
        oBrw:SetRDD(.f.)
        oBrw:SetColor( oPub:CorAzul,oPub:CorDlg )
        oBrw:l2007               := .T.
        oBrw:lAllowRowSizing     := .T.
        oBrw:lHScroll            := .T.
        oBrw:lVScroll            := .T.
        oBrw:lRecordSelector     := .T.
        oBrw:nRecSelColor        := RGB(205,220,255)
        oBrw:lAllowColSwapping   := .f.
        oBrw:nDataLines          := 1
        oBrw:lColDividerComplete := .T.
        oBrw:bClrStd             :={||{oPub:CorAzul,IF(NFEITEM->(OrdKeyNo())%2=0,FundoGet,oPub:CorDlg)}}
        oBrw:bClrSel             :={||{oPub:CorAzul,IF(NFEITEM->(OrdKeyNo())%2=0,FundoGet,oPub:CorDlg)}}
        oBrw:bClrSelFocus        :={||{oPub:CorPreto,oPub:CorBrwC}}
        oBrw:bClrRowFocus        :={||{oPub:CorPreto,oPub:CorBrwL}}
        oBrw:nColDividerStyle    := 4
        oBrw:nRowDividerStyle    := 4
        oBrw:nMarqueeStyle       := 5
        oBrw:nRowHeight          := 24
        oBrw:nFreeze             :=4

        oBrw:lFooter             := .t. //  se vai mostrar rodape)
        oBrw:nFooterLines        :=  1
        oBrw:nFooterHeight       := 23

        oBrw:lHeader             := .t. //  se vai mostrar header cabeçalho)
        oBrw:nHeaderLines        := 1
        oBrw:nHeader             := 1
        oBrw:aHeaderTop          := {"DADOS PARA ENTRADA","INFORMAÇÕES DO ITEM NA NOTA DE ENTRADA"}
        oBrw:nHeaderHeight       := 60

        oCol_Cod:=oBrw:AddCol()
        oCol_Cod:nHeaderType  := 2
        oCol_Cod:cHeader      :="Código"
        oCol_Cod:nHeadStrAlign:=AL_CENTER
        oCol_Cod:nDataStrAlign:=AL_RIGHT
        oCol_Cod:bStrData     :={|| NFEITEM->codent }
        oCol_Cod:oDataFont    :=oPub:fBCour13
        oCol_Cod:nWidth       :=50
        oCol_cod:bFooter      :={|| NFEITEM->(LastRec()) }
        oCol_cod:oFooterFont  :=oPub:fBCour13
        oCol_cod:nFootStrAlign:=AL_RIGHT
        oCol_cod:nEditType    :=EDIT_GET
        oCol_cod:cEditPicture :="999999"
        oCol_cod:oEditFont    :=oPub:fBCour13
        oCol_cod:bOnPostEdit  :={|oCol_vis,uValue,nKey|IF(nKey= 13,Valida_Codigo(uValue),NIL)}
        oCol_cod:bEditValue   :={||NFEITEM->codent}

        oCol_Loj:=oBrw:AddCol()
        oCol_Loj:nHeaderType  := 1
        oCol_Loj:cHeader      :="Qtd Loja"
        oCol_Loj:nHeadStrAlign:=AL_CENTER
        oCol_Loj:nDataStrAlign:=AL_RIGHT
        oCol_Loj:bStrData     :={|| NFEITEM->qtdloj }
        oCol_Loj:oDataFont    :=oPub:fBCour13
        oCol_Loj:nWidth       :=80
        oCol_loj:nEditType    :=EDIT_GET
        oCol_loj:cEditPicture :="@E 99,999.999"
        oCol_loj:oEditFont    :=oPub:fBCour13
        oCol_loj:bOnPostEdit  :={|oCol_loj,uValue,nKey|IF(nKey= 13,Valida_QtdeLoj(uValue),NIL)}
        oCol_loj:bEditValue   :={||NFEITEM->qtdloj}

        oCol_Dep:=oBrw:AddCol()
        oCol_Dep:nHeaderType  := 1
        oCol_Dep:cHeader      :="Qtd Dep"
        oCol_Dep:nHeadStrAlign:=AL_CENTER
        oCol_Dep:nDataStrAlign:=AL_RIGHT
        oCol_Dep:bStrData     :={|| NFEITEM->qtddep }
        oCol_Dep:oDataFont    :=oPub:fBCour13
        oCol_Dep:nWidth       :=80
        oCol_Dep:nEditType    :=EDIT_GET
        oCol_Dep:cEditPicture :="@E 99,999.999"
        oCol_Dep:oEditFont    :=oPub:fBCour13
        oCol_Dep:bOnPostEdit  :={|oCol_Dep,uValue,nKey|IF(nKey= 13,Valida_QtdeDep(uValue),NIL)}
        oCol_Dep:bEditValue   :={||NFEITEM->qtddep}

        oCol_Custo:=oBrw:AddCol()
        oCol_Custo:nHeaderType  := 1
        oCol_Custo:cHeader      :="Custo Real"
        oCol_Custo:nHeadStrAlign:=AL_CENTER
        oCol_Custo:nDataStrAlign:=AL_RIGHT
        oCol_Custo:bStrData     :={|| Transf(NFEITEM->cusent,"@EZ 99,999.99") }
        oCol_Custo:oDataFont    :=oPub:fBCour13
        oCol_Custo:nWidth       :=80
        oCol_Custo:nEditType    :=EDIT_GET
        oCol_Custo:cEditPicture :="@E 99,999.99"
        oCol_Custo:oEditFont    :=oPub:fBCour13
        oCol_Custo:bOnPostEdit  :={|oCol_vis,uValue,nKey|IF(nKey= 13,Valida_CustoReal(uValue),NIL)}
        oCol_Custo:bEditValue   :={||NFEITEM->cusent}

        oCol_Pra:=oBrw:AddCol()
        oCol_Pra:nHeaderType  := 1
        oCol_Pra:cHeader      :="Venda a Prazo"
        oCol_Pra:nHeadStrAlign:=AL_CENTER
        oCol_Pra:nDataStrAlign:=AL_RIGHT
        oCol_Pra:bStrData     :={|| Transf(NFEITEM->vdapra,"@EZ 99,999.99") }
        oCol_Pra:oDataFont    :=oPub:fBCour13
        oCol_Pra:nWidth       :=80
        oCol_pra:nEditType    :=EDIT_GET
        oCol_pra:cEditPicture :="@E 99,999.99"
        oCol_pra:oEditFont    :=oPub:fBCour13
        oCol_pra:bOnPostEdit  :={|oCol_vis,uValue,nKey|IF(nKey= 13,Valida_VdaPra(uValue),NIL)}
        oCol_pra:bEditValue   :={||NFEITEM->vdapra}

        oCol_des:=oBrw:AddCol()
        oCol_des:nHeaderType  := 4
        oCol_des:cHeader      :="Descrição"
        oCol_des:nHeadStrAlign:=AL_CENTER
        oCol_des:nDataStrAlign:=AL_LEFT
        oCol_des:bStrData     :={|| NFEITEM->despro }
        oCol_des:oDataFont    :=oPub:fBCour13
        oCol_des:nWidth       :=380
        oCol_des:bPaintText   :={|oCol,hDC,cText,aCoord|PCS_MudaTextoXbrw( oCol, hDC, cText, aCoord, oPub:fBCour13, IF(NFEITEM->codent==0,oPub:CorVermelho,oPub:CorGet),IF(NFEITEM->codent==0,oPub:CorVermelho,oPub:CorGet)) }

        oCol_Uni:=oBrw:AddCol()
        oCol_Uni:nHeaderType  := 1
        oCol_Uni:cHeader      :="UN"
        oCol_Uni:nHeadStrAlign:=AL_CENTER
        oCol_Uni:nDataStrAlign:=AL_CENTER
        oCol_Uni:bStrData     :={|| NFEITEM->unipro }
        oCol_Uni:oDataFont    :=oPub:fBCour13
        oCol_Uni:nWidth       :=30

        oCol_Qtd:=oBrw:AddCol()
        oCol_Qtd:nHeaderType  := 1
        oCol_Qtd:cHeader      :="Qtd Nota"
        oCol_Qtd:nHeadStrAlign:=AL_CENTER
        oCol_Qtd:nDataStrAlign:=AL_RIGHT
        oCol_Qtd:bStrData     :={|| NFEITEM->qtdpro }
        oCol_Qtd:oDataFont    :=oPub:fBCour13
        oCol_Qtd:nWidth       :=80

        oCol_Cus:=oBrw:AddCol()
        oCol_Cus:nHeaderType  := 1
        oCol_Cus:cHeader      :="Valor Unit"
        oCol_Cus:nHeadStrAlign:=AL_CENTER
        oCol_Cus:nDataStrAlign:=AL_RIGHT
        oCol_Cus:bStrData     :={|| Transf(NFEITEM->vlrpro,"@E 99,999.99") }
        oCol_Cus:oDataFont    :=oPub:fBCour13
        oCol_Cus:nWidth       :=80

        oCol_tot:=oBrw:AddCol()
        oCol_tot:nHeaderType  := 1
        oCol_tot:cHeader      :="Valor Total"
        oCol_tot:nHeadStrAlign:=AL_CENTER
        oCol_tot:nDataStrAlign:=AL_RIGHT
        oCol_tot:bStrData     :={|| Transf(NFEITEM->totpro,"@E 999,999.99") }
        oCol_tot:oDataFont    :=oPub:fBCour13
        oCol_tot:nWidth       :=90

        oCol_Ean:=oBrw:AddCol()
        oCol_Ean:nHeaderType  := 1
        oCol_Ean:cHeader      :="Ean"
        oCol_Ean:nHeadStrAlign:=AL_CENTER
        oCol_Ean:nDataStrAlign:=AL_LEFT
        oCol_Ean:bStrData     :={|| Transf(NFEITEM->eanpro,"@R 999.99999.9999-9") }
        oCol_Ean:oDataFont    :=oPub:fBCour13
        oCol_Ean:nWidth       :=140

        oCol_ncm:=oBrw:AddCol()
        oCol_ncm:nHeaderType  := 1
        oCol_ncm:cHeader      :="Ncm-Sh"
        oCol_ncm:nHeadStrAlign:=AL_CENTER
        oCol_ncm:nDataStrAlign:=AL_LEFT
        oCol_ncm:bStrData     :={|| Transf(NFEITEM->ncmpro,"@R 9999.99.99") }
        oCol_ncm:oDataFont    :=oPub:fBCour13
        oCol_ncm:nWidth       :=95

        oCol_04:=oBrw:AddCol()
        oCol_04:nHeaderType  := 1
        oCol_04:cHeader      :="CST"
        oCol_04:nHeadStrAlign:=AL_CENTER
        oCol_04:nDataStrAlign:=AL_CENTER
        oCol_04:bStrData     :={|| Transf(NFEITEM->cstpro,"@R 9 999") }
        oCol_04:oDataFont    :=oPub:fBCour13
        oCol_04:nWidth       :=50

        oCol_05:=oBrw:AddCol()
        oCol_05:nHeaderType  := 1
        oCol_05:cHeader      :="CFOP"
        oCol_05:nHeadStrAlign:=AL_CENTER
        oCol_05:nDataStrAlign:=AL_LEFT
        oCol_05:bStrData     :={|| Transf(NFEITEM->cfopro,"@R 9.999") }
        oCol_05:oDataFont    :=oPub:fBCour13
        oCol_05:nWidth       :=45

 

[crisvam]

Marcioe,

 

Veja o testhead.prg na pasta exemplos do fivewin

[marcioe]

obrigado ao amigo Sérgio A. Oliveira, e ao amigo Engenheiro e demais amigos

 

Adica do Sergio era exatamente a que eu queria.

 

Esse fórum, é foda mesmo !!!

Vou pedir uma dica de como fazer umas notas de 100 verdadeira. (quem sabe alguem sabe)   ' brincadeira pessoal.'

 

resolvido, obrigado...