#Include "SYSCON.CH"
#define CRTLF CHR(13)+ CHR(10)
#define CRTLF CHR(13)+ CHR(10)
#define CLR_BLUEXP nRgb( 225, 245, 255)
#Define CLR_BFOOT nRGB( 26, 120, 160 ) //--> Azul meio Verde
*-------------------------------------------------------------------------------
Function MONOF_PISCODFINS()
Local oDlpis,oBtn[2] ,oFont[3]
LOCAL cFilter := ' periodo = ' + SR_cDBValue( TRANSFORM(M->cReferencia,"@R 99/9999") )
LOCAL lMONOF_PIS := .T.
LOCAL cQuery := "Select COD_NCM FROM NCM WHERE MONOF_PIS = " + SR_cDBValue( lMONOF_PIS )
LOCAL aQuery := {}
//-- verifica se as contas estao configurada no plano de contas
IF LEN(ARRAY_SQL(cQuery,aQuery)) == 0
MSGALERT("Tabela NCM não Configurado as Contas que Apuram PIS/COFINS","Alerta")
Return(.F.)
ENDIF
*-------------------------------------------------------------------------------
oBd_Infc := ABRIR("INFC",.t.)
(oBd_Infc)->( SR_SETFILTER(cFilter) )
(oBd_Infc)->(DbGoTop())
oBd_Ncm := ABRIR("NCM",.t.)
//-- tabela NCM
(oBd_Ncm)->(DBSETORDER(1))
(oBd_Ncm)->( DBGOTOP() )
*---------------------------------------------------------*
WVLPIS_04:=0
WVLPIS_06:=0
WVLPIS_07:=0
WVLCOFINS_04:=0
WVLCOFINS_06:=0
WVLCOFINS_07:=0
WPIS:=0
WCOFINS:=0
WPIS_ZERO:=0
WCOFINS_ZERO:=0
WPIS_ISENTO:=0
WCOFINS_ISENTO:=0
WTOTAL_PIS:=0
WTOTAL_COFINS:=0
(oBd_Ncm)->( DBGOTOP() )
WHILE ! (oBd_Ncm)->( EOF() )
wCOD_NCM := (oBd_Ncm)->COD_NCM
(oBd_Infc)->( DBGOTOP() )
nPos := AScan( aQuery ,{ |x| x[1] = wCOD_NCM } )
IF nPos > 0 //-- encontrou a conta no vetor
WPIS=(oBd_Infc)->VLR_ITEM
WCOFINS=(oBd_Infc)->VLR_ITEM
WVLPIS_04=WVLPIS_04+WPIS
WVLCOFINS_04=WVLCOFINS_04+WCOFINS
ENDIF
* (oBd_Infc)->( DBSKIP() )
WTOTAL_PIS=WVLPIS_04+WVLPIS_06+ WVLPIS_07
WTOTAL_COFINS=WVLCOFINS_04+WVLCOFINS_06+WVLCOFINS_07
(oBd_Ncm)->( DBSKIP() )
Enddo
M_Calcpiscofins()
Return Nil
*-------------------------------------------------------------------------------
Static Function M_Calcpiscofins()
Local oDlpis,oBtn[2] ,oFont[4]
*-------------------------------------------------------------------------------
DEFINE FONT oFont[1] NAME "VERDANA" SIZE 0,-09
DEFINE FONT oFont[2] NAME "VERDANA" SIZE 0,-11 BOLD
DEFINE FONT oFont[3] NAME "VERDANA" SIZE 0,-13 BOLD
DEFINE DIALOG oDlpis RESOURCE "RELMONOF_PIS" FONT oFont[1]
oDlpis:lHelpIcon:=.F.
REDEFINE SAY ID 051 OF oDlpis FONT oFont[3] COLOR CLR_WHITE,CLR_BFOOT
REDEFINE SAY ID 4006 OF oDlpis FONT oFont[3] COLOR CLR_WHITE,CLR_BFOOT
REDEFINE SAY PROMPT TransForm(WVLPIS_04,'@E 999,999,999.99') ID 101 OF oDlpis FONT oFont[2] Update
REDEFINE SAY PROMPT TransForm(WVLCOFINS_04,'@E 999,999,999.99') ID 102 OF oDlpis FONT oFont[2] Update
* REDEFINE SAY PROMPT TransForm(WVLPIS_06,'@E 999,999,999.99') ID 103 OF oDlpis FONT oFont[2] Update
*REDEFINE SAY PROMPT TransForm(WVLCOFINS_06,'@E 999,999,999.99') ID 104 OF oDlpis FONT oFont[2] Update
*REDEFINE SAY PROMPT TransForm(WVLPIS_07,'@E 999,999,999.99') ID 105 OF oDlpis FONT oFont[2] Update
*REDEFINE SAY PROMPT TransForm(WVLCOFINS_07,'@E 999,999,999.99') ID 106 OF oDlpis FONT oFont[2] Update
*REDEFINE SAY PROMPT TransForm(WTOTAL_PIS,'@E 999,999,999.99') ID 107 OF oDlpis FONT oFont[2] Update
*REDEFINE SAY PROMPT TransForm(WTOTAL_COFINS,'@E 999,999,999.99') ID 108 OF oDlpis FONT oFont[2] Update
REDEFINE BUTTONBMP oBtn[1] ID 1401 OF oDlpis BITMAP "BTN_SAIR" CANCEL;
ACTION oDlpis:End() UPDATE TEXTRIGHT
oBtn[1]:cTooltip:="Sair para menu Principal"
ACTIVATE DIALOG oDlpis CENTERED
* aEval( oFont, {|o| o:End()})
DbCloseAll()
Return Nil
gostaria de saber o que está errado neste código fonte, para vim só os valores monofásico de PIS e COFINS