'Nome       : cnfrecibo.STD
'Tipo       : LST
'Data       : 2011/08/08
'Versao     : 1.0
'Descricao  : Recibos de vencimento

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0 2011/??/?? ---------------------------------------------------
'Versao base


'==============================================================================
#DEF - Definicao global do documento
'==============================================================================
Caracteres invalidos             [CarInv]=#{}
Subtotalizadores                 [SbtNiv]=2
##


'==============================================================================
#ESP - Campos especificos
'==============================================================================
##



'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=ORDGER
Nome                       [DocNom]=Cnf_G,Conferencia de recibos 
Vias                       [DocVia]=Original

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=59
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=36L
Ajustar pagina             [DocApg]=0
ordenacao                  [DocEsp]=ORD=MAN:trb$
Juntar seccoes             [DocEsp]=JunSec=1
Lista continuo             [DocEsp]=LstCnt=1
Lista titulo               [DocEsp]=LstTit=1
Lista subtotal             [DocEsp]=LstStot=1

'Juntar seccoes             [DocEsp]=JunSec=0
'Cod a discriminar seccoes  [DocEsp]=CmvDisSec="710,720"

'funcoes de listagem
Listar cabecalho            [FxCAB]=CnfCabNor
Listar linhas               [FxLIN]=CnfLin ; tit ; stot
Listar fim                  [FxFIM]=CnfFim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=ORDGER
Nome                       [DocNom]=CnfA_G,Conferencia de recibos (c/acumuladores)
Vias                       [DocVia]=Original

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=59
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=36L
Ajustar pagina             [DocApg]=0
ordenacao                  [DocEsp]=ORD=MAN:trb$
Juntar seccoes             [DocEsp]=JunSec=1
Lista continuo             [DocEsp]=LstCnt=1
Lista titulo               [DocEsp]=LstTit=1
Lista subtotal             [DocEsp]=LstStot=1

'Juntar seccoes             [DocEsp]=JunSec=0
'Cod a discriminar seccoes  [DocEsp]=CmvDisSec="710,720"

'funcoes de listagem
Listar cabecalho            [FxCAB]=CnfCabAcm
Listar linhas               [FxLIN]=CnfLin ; tit ; stot
Listar fim                  [FxFIM]=CnfFim
##



'==============================================================================
#VAR - Variaveis
'==============================================================================
DocNum   =FrmVal$(MemNum(1),20,-5.0)
Tipo     =MemTxt$(1)
Pag      =Doc_CntPag
DataExt  =FrmVal$(Sig_DtHoje,45,0)
DataRec  =FrmVal$(Sig_DtHoje,42,0)

NomEmp   =Emp_Inf_Nome$
Local    =Emp_Inf_Local$
Ctrb     =Emp_Inf_Contrib$

TrbC     =Gpe_Mst_Trb$
TrbNome  =Gpe_Mst_Nome$
TrbCat   =GpeTabCon$("CAT",Gpe_Mst_Categ,"ABRV")
TrbCont  =Gpe_Mst_Ctrb$
TrbCrss  =Gpe_Mst_CrssNb$
TrbLpg   =Gpe_Mst_Est$

'GpeTabCon$("EST",Gpe_Mst_Est$,"NOME")
TrbVbase =GpeFrmMoe$("",10,Gpe_Mst_Vbase)

'linha
Cm       =Gpe_Cmv_Cod$
Desc     =Gpe_Cmv_Descr$
Desc16   =left$(Gpe_Cmv_Descr$,30)
Desc27   =left$(Gpe_Cmv_Descr$,27)
Tx       =FrmVal$(gpe_mov_tax,20,2.2)
HorDias  =GpeFrmT$("?","####.00 ",MemNum(22))
Quant    =GpeFrmT$("?","###.00",gpe_mov_qcalc)
valor    =GpeFrmMoe$("",10,gpe_mov_vcalc)
VUnit    =GpeFrmMoe$("Z=E",10,(gpe_mov_vcalc/gpe_mov_qcalc))
proc     = "("+Gpe_mov_Proc+")"



'totais
TotAbo   =GpeFrmMoe$("",10,MemNum(31))
TotDes   =GpeFrmMoe$("",10,MemNum(32))
TotRec   =GpeFrmMoe$("",13,MemNum(31)-MemNum(32))

Obs      =GpeObs$(5)
Seguro   =GpeTabCon$("SEG",Gpe_Mst_CodSeg,"NOME")+"  Apolice n."+GpeTabCon$("SEG",Gpe_Mst_CodSeg,"AP_NUM")
Seguro16 =GpeTabCon$("SEG",Gpe_Mst_CodSeg,"NOME")+" , Apolice n."+GpeTabCon$("SEG",Gpe_Mst_CodSeg,"AP_NUM")

TotEur   =FrmVal$(MoeCnv("N",Total(Abo)-Total(Des),Emp_Inf_Moeda,2),21,12.2)
Abv      =EmpTabCon$("MOEDA",Emp_Inf_Moeda,"ABRV")


'totais (todos os processamentos)
IncIrs   =GpeFrmMoe$("",13,MemNum(11))
AcmIrs   =GpeFrmMoe$("",13,MemNum(12))

Sec      = GpeCodFrm$("SEC",Gpe_Mst_Sec$)+" - "+GpeTabCon$("SEC",Gpe_Mst_Sec$,"DESC")
Est      = GpeCodFrm$("EST",Gpe_Mst_Est$)+" - "+GpeTabCon$("EST",Gpe_Mst_Est$,"NOME")

##


'==============================================================================
#INC - Funcoes comuns
'==============================================================================
Funcoes comuns                 =[SIG_Dir.Div],LsComVar.Std
##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
SUB Lst_AJT
end sub

'-----------------------------------------------------------------------------
' Formato do documento
'-----------------------------------------------------------------------------
Sub FxIni 'funcao de inicializacao
Call SigLstIni
End sub



'-----------------------------------------------------------------------------
SUB CnfCabNor
'-----------------------------------------------------------------------------
limCmv$="100:900"

SigCabNorOpcTit=2 		            'alterar origem do titulo
Titulo$="Conferência de recibos"
Call SigLstCab


'posicao das colunas
lin2=4

PrWIN FON  ,   9 ,  1                      'activar fonte
PrWIN AJT_B,  Margem, 30                    'posicao base

tit$=gpe_lst_procinfo$
PrWIN TX_N,    0, -5, tit$

PrWIN COR_T,  CorTitLst                     'cor de titulo

esp=20

Col1=3
Col2=Col1+15			'codigo movimento
Col3=Col2+60			'taxa
Col4=Col3+10			'quantidaded
Col5=Col4+15                 	'unitario
Col6=Col5+esp                  'abono
Col7=Col6+esp                  'desconto
Col8=Col7
Col9=col8+esp                  'acumuladores
Col10=col8+esp                 'total

Cmax=MargemD-10


'listar titulos
PrWIN TX_CTR,  Col1,   0,Col2,0,"Trabalhador"
PrWIN TX_CTR,  Col2,   0,Col3,0,"Código de movimento"
PrWIN TX_N,    Col3,   0,       "Taxa"
PrWIN TX_N,    Col4,   0,       "Quantidade"
PrWIN TX_N,    Col5+5, 0,       "Unitario"
PrWIN TX_N,    Col6+6, 0,       "Descontos"
PrWIN TX_N,    Col7+6, 0,       "Abonos"
PrWIN TX_N,    Col9+10,0,       "Total"

PrWIN COR_T,CorTraco                       'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0               	'linha
PrWIN GR_LI, 0, lin2, Cmax,lin2

PrWIN COR_T,CorLin                              'cor de linhas

InicioEscrita=31

End SUb


'-----------------------------------------------------------------------------
SUB CnfCabAcm
'-----------------------------------------------------------------------------
limCmv$="001:900"

SigCabNorOpcTit=2 		            'alterar origem do titulo
Titulo$="Conferência de recibos"
Call SigLstCab


'posicao das colunas
lin2=4

PrWIN FON  ,   9 ,  1                      'activar fonte
PrWIN AJT_B,  Margem, 30                    'posicao base

tit$=gpe_lst_procinfo$
PrWIN TX_N,    0, -5, tit$

PrWIN COR_T,  CorTitLst                     'cor de titulo

Col1=3
Col2=Col1+15			'codigo movimento
Col3=Col2+60			'taxa
Col4=Col3+10			'quantidaded
Col5=Col4+15                 	'unitario
Col6=Col5+17                  'abono
Col7=Col6+17                  'desconto
Col8=Col7+17			'total
Col9=col8+17                  'acumuladores
Col10=col8+17                 'total

Cmax=MargemD-10


'listar titulos
PrWIN TX_CTR,  Col1,   0,Col2,0,"Trabalhador"
PrWIN TX_CTR,  Col2,   0,Col3,0,"Código de movimento"
PrWIN TX_N,    Col3,   0,       "Taxa"
PrWIN TX_N,    Col4,   0,       "Quantidade"
PrWIN TX_N,    Col5+5, 0,       "Unitario"
PrWIN TX_N,    Col6+6, 0,       "Descontos"
PrWIN TX_N,    Col7+6, 0,       "Abonos"
PrWIN TX_N,    Col8+3, 0,       "Acumuladores"
PrWIN TX_N,    Col9+10,0,       "Total"

PrWIN COR_T,CorTraco                       'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0               	'linha
PrWIN GR_LI, 0, lin2, Cmax,lin2

PrWIN COR_T,CorLin                              'cor de linhas

InicioEscrita=31

End SUb



'-----------------------------------------------------------------------------
Sub CnfLinPos
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*4          	'posicao base
PrWIN COR_T,CorLin                              'cor de linhas
end sub


'-----------------------------------------------------------------------------
Sub CnfLinTit
'-----------------------------------------------------------------------------
call CnfLinPos
PrWin TX_N,    Col1,0, @TrbC
PrWin TX_N,    col1+12,0, @TrbNome
PrWin TX_N,    Col4,0, @TrbCat
fx=GpeAcmSalIni("")
end sub


'-----------------------------------------------------------------------------
SUB CnfLin
'-----------------------------------------------------------------------------

nr=GpeSqlMov("",0,-1,limCmv$)
for n=1 to nr
  fx=GpeAcmSal(gpe_mov_Vcalc,Gpe_Mov_Qcalc)
  tipo=GpeCodTipo(gpe_mov_cmv$)

  vu=GpeVcmQu(0)
  vuf$=gpeFrmMoe$("",8,GpeVcmQu(0))
  if vu=0 then
    vuf$=""
  end if



  call CnfLinPos
  pr=gpe_lst_procnum
  if pr=0 then
    
    PrWIN TX_N,     Col2-5   ,0    ,@proc
  end if

  PrWIN TX_N,     Col2   ,0    ,@Cm
  PrWIN TX_N,     Col2+7,0    ,@desc
  PrWIN TX_NP,    Col3   ,0,"N",@Tx
  PrWIN TX_NP,    Col4   ,0,"N",@Quant
  PrWIN TX_NP,    Col5   ,0,"N",vuf$

'0fx=msgbox(gpe_mov_vcalc,gpe_mov_qcalc)

  if tipo=2 then     'faltas
    PrWIN TX_NP,    Col6   ,0,"N",@valor
  end if
  if tipo=3 then     'descontos
    PrWIN TX_NP,    Col6   ,0,"N",@valor
  end if
  if tipo=9 then     'acumuladores
    PrWIN TX_NP,    Col8   ,0,"N",@valor
  end if
  if tipo=1 then    'abonos
    PrWIN TX_NP,    Col7   ,0,"N",@valor
  end if

  fx=GpeSqlMovLer("+")
  fx=CntLin("INC",1)
next


TAbo = GpeAcmSalCon("ABO")
TDes = GpeAcmSalCon("DES")
TRec = GpeAcmSalCon("LIQ")
TotAbo$ = GpeFrmMoe$("",10,tabo)
TotDes$ = GpeFrmMoe$("",10,tdes)
TotRec$ = GpeFrmMoe$("",10,trec)

tGerAbo=tGerAbo+tAbo
tGerDes=tGerDes+tDes
tGerRec=tGerRec+tRec

TotGerAbo$ = GpeFrmMoe$("",10,tGerAbo)
TotGerDes$ = GpeFrmMoe$("",10,tGerDes)
TotGerRec$ = GpeFrmMoe$("",10,tGerRec)

lin=CntLin("CON")-1
fx=CntLin("FRC",lin)
End Sub


'-----------------------------------------------------------------------------
Sub CnfLinStot
'-----------------------------------------------------------------------------
call CnfLinPos
PrWIN COR_T, CorTotGer                          'cor de totais
PrWIN GR_LI, col1, 0, cmax,0
PrWIN TX_N,  Col4, 0,"Total:"
PrWIN TX_NP, Col6, 0,"N",TotDes$
PrWIN TX_NP, Col7, 0,"N",TotAbo$
PrWIN TX_NP, Col9, 0,"N",TotRec$
'fx=CntLin("INC",1)
end sub

'-----------------------------------------------------------------------------
Sub CnfLinPos
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*4          	'posicao base
end sub


'-----------------------------------------------------------------------------
Sub CnfFimAjt
'-----------------------------------------------------------------------------
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,Linper-3                 		'posicao base
PrWIN GR_LI,     0,  0, cmax, 0            	'linha

PrWIN COR_T, CorTotGer                            'cor de totais
PrWIN TX_N, Col8,    1,"Continua ..."
Prwin FP
end sub


'-----------------------------------------------------------------------------
SUB CnfFim
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, LinPer-3        	'posicao base
PrWIN COR_T,CorTraco                      'cor de linhas
PrWIN GR_LI, 0, 0, cmax, 0                'linha
PrWIN COR_T, CorTotGer                          'cor de totais
PrWIN GR_LI, col1, 0, cmax,0
PrWIN TX_NP, Col6, 0,"N",TotGerDes$
PrWIN TX_NP, Col7, 0,"N",TotGerAbo$
PrWIN TX_NP, Col9, 0,"N",TotGerRec$

tGerAbo=0
tGerDes=0
tGerRec=0

Call SigLstFim
PrWin FP                                  'fim de pagina
End Sub
##


'==============================================================================
#INC - Funcoes comuns
'==============================================================================
Funcoes comuns                 =[SIG_Dir.Div],LsComPgm.Std
##

