<?php
$sNomeIdJConsulta = 'iJan_LstCadMPG';
$sNomeIdJEdt_Cad = 'iJan_EdtCadMPG';
$nTmpFrmEnv = 400;
$bTribuFiscal = SQLVarConfig('TRIBUTACAO_FISCAL')+0;
//
//  ** CADASTRO (NOVO/EDITA) **
If ( $sSubModulo=="EDT" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJEdt_Cad; 
    $oJanelaPrinc->nTop    = 100;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 610;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft   += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Cadastro modalidade de pagamento';
	$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."2.Teclas_F(this,event);";
	//
	$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
	$oJanelaPrinc->sJavOnClickF =
	     $sJavaTravarJ.
         "document.forms.fmECadMPG.acao.value='FECHAR'; ".
         "document.forms.fmECadMPG.submit();".
		 "";
	//
	$bMontarJanela = true;
    $sMPG_CodigoI = @$_REQUEST['MPG_CodigoI'];
	//
	// SALVAR
    If ( $sAcao=="SALVAR" ) {
	   $nMPG_CodigoI = 0;
       $bGravarReg = False;
	   If ( STRLEN(@$_REQUEST['MPG_Descric'])<2 ) {
	      $sRet_Javs .= Info_Evento('Alguns campos estão incompletos.');
	   } Else {
	      $bGravarReg = True;
	   }
	   If ($bGravarReg) {
	      If ( $sMPG_CodigoI=="NOVO" ) {
	         $nMPG_CodigoI = SQLVarConfig(STRTOUPPER($sModulo)."_SEQCOD")+0;
	         $Row_CadMPG = MYSQL_QUERY("SELECT * FROM cad_modalidade_pag WHERE MPG_CODIGOI=".($nMPG_CodigoI)." ;") or die(MYSQL_ERROR());
             If ($Row_CadMPG = MYSQL_FETCH_ARRAY($Row_CadMPG)) {
	            $sRet_Javs .= Info_Evento('Não posso gravar, codigo sequencial já existe ('.Str_Zero($nMPG_CodigoI,4).') .',1);
				$bGravarReg = False;
			 }
		  }
	   }
       //
       If ($bGravarReg && (@$_REQUEST['MPG_P_TotRe']+0)) {
          $RowsB = MYSQL_QUERY(
              "SELECT MPG_CODIGOI, ".
                     "MPG_DESCRIC  ".
              "FROM cad_modalidade_pag ".
              "WHERE ".
                 "MPG_TRAVADO=0 AND MPG_P_TOTRE=1 AND ".
                 "MPG_CODIGOI<>".($sMPG_CodigoI+0).
              ";"
          ) or die(MYSQL_ERROR());
          $nCount     = MYSQL_NUM_ROWS($RowsB);
          $RowB       = MYSQL_FETCH_ARRAY($RowsB);
          $bGravarReg = ($nCount==0);
          If (! $bGravarReg) {
            $sRet_Javs .= Info_Evento('Não posso gravar, já existe modalidade<br> '.
                                      'configurada como Sugere o total à receber.<br> '.
                                      Str_Zero($RowB["MPG_CODIGOI"],4)."-".$RowB["MPG_DESCRIC"] );
          }
       }
       If ($bGravarReg && (@$_REQUEST['MPG_Cartao' ]+0) ) {
	      $RowB = MYSQL_QUERY("SELECT * FROM cad_modalidade_pag WHERE MPG_CODIGOI != ".($sMPG_CodigoI+0)." AND MPG_CARTAO ;") or die(MYSQL_ERROR());
          If ($RowB = MYSQL_FETCH_ARRAY($RowB, MYSQL_ASSOC)) {
	         $sRet_Javs .= Info_Evento('Não posso gravar, só é permitda uma modalidade com o tipo cartão ('.Str_Zero($RowB['MPG_CODIGOI'],3).' - '.$RowB['MPG_DESCRIC'].') .',1);
		     $bGravarReg = False;
		  }
       }
       If ($bGravarReg && (@$_REQUEST['MPG_Cheque' ]+0) ) {
	      $RowB = MYSQL_QUERY("SELECT * FROM cad_modalidade_pag WHERE MPG_CODIGOI != ".($sMPG_CodigoI+0)." AND MPG_CHEQUE ;") or die(MYSQL_ERROR());
          If ($RowB = MYSQL_FETCH_ARRAY($RowB, MYSQL_ASSOC)) {
	         $sRet_Javs .= Info_Evento('Não posso gravar, só é permitda uma modalidade com o tipo cheque ('.Str_Zero($RowB['MPG_CODIGOI'],3).' - '.$RowB['MPG_DESCRIC'].') .',1);
		     $bGravarReg = False;
		  }
       }
       If ($bGravarReg && (@$_REQUEST['MPG_Fin_CTR']+0) && (@$_REQUEST['MPG_P_Troco']+0)) {
          $sRet_Javs .= Info_Evento('Não é permitido voltar troco e gravar em contas á receber na mesma modalidade.',1);
		  $bGravarReg = False;
       }
       //
	   If ($bGravarReg) {
	      If ( $sMPG_CodigoI=="NOVO" ) {
	         $nMPG_CodigoI = SQLVarConfig(STRTOUPPER($sModulo)."_SEQCOD")+0;
             SQLVarConfigG(STRTOUPPER($sModulo)."_SEQCOD", $nMPG_CodigoI+1 );
             MYSQL_QUERY(   // Cria um novo registro
               "INSERT INTO cad_modalidade_pag(MPG_CODIGOI) VALUES (".$nMPG_CodigoI."); ") or die(MYSQL_ERROR());
	      } Else {
	         $nMPG_CodigoI = $sMPG_CodigoI+0;
	      }
	      $Row_CadMPG = MYSQL_QUERY("SELECT * FROM cad_modalidade_pag WHERE MPG_CODIGOI=".($nMPG_CodigoI)." ;") or die(MYSQL_ERROR());
          If ($Row_CadMPG = MYSQL_FETCH_ARRAY($Row_CadMPG)) {
               $TMP_RELCAX = STRTOUPPER( @$_REQUEST['MPG_Descric'] );
			   IF ($TMP_RELCAX == 'DINHEIRO' ) {
			      $TMP_RELCAX = 1;
			   } 
			   ELSE{
			      $TMP_RELCAX = (@$_REQUEST['MPG_RELCAX']+0);
			   };
			   
		  
             MYSQL_QUERY(   // Cria um novo registro
               "UPDATE cad_modalidade_pag SET ".
                 'MPG_DESCRIC=0x'.BIN2HEX(UTF8_DECODE(@$_REQUEST['MPG_Descric'])).','.
                 'MPG_N_ORDEM="'. @$_REQUEST['MPG_N_Ordem'].  '",'.
                 'MPG_MOS_REC="'.(@$_REQUEST['MPG_Mos_Rec']+0).'",'.
                 'MPG_P_TROCO="'.(@$_REQUEST['MPG_P_Troco']+0).'",'.
//               'MPG_RELCAX="' .(@$_REQUEST['MPG_RELCAX']+0).'",'.
                 'MPG_RELCAX="' . $TMP_RELCAX .'",'.
				 'MPG_FIN_CTR="'.(@$_REQUEST['MPG_Fin_CTR']+0).'",'.
				 'MPG_CARTAO ="'.(@$_REQUEST['MPG_Cartao' ]+0).'",'.
				 'MPG_CHEQUE ="'.(@$_REQUEST['MPG_Cheque' ]+0).'",'.
                 'MPG_P_TOTRE="'.(@$_REQUEST['MPG_P_TotRe']+0).'",'.
				 ( $bTribuFiscal ?
				 'MPG_IND_ECF="'.(@$_REQUEST['MPG_Ind_ECF']).'",'.
				 'MPG_IND_SAT="'.(@$_REQUEST['MPG_Ind_SAT']+0).'",'
				 : '').
				 'MPG_EMI_ECF="'.(@$_REQUEST['MPG_Emi_ECF']).'",'.
                 'MPG_MOS_PAG="'.(@$_REQUEST['MPG_Mos_Pag']+0).'",'.
				 'MPG_TRAVADO=0 '.
               "WHERE MPG_CODIGOI=".($nMPG_CodigoI)."; ") or die(MYSQL_ERROR());
	         // atualizar registro
	      } Else {
             // Erro: registro não existe
	         $sRet_Javs .= Info_Evento('ERRO FATAL: Registro de faturamento MPG_CODIGOI=('.$nMPG_CodigoI.') não existe para gravar.',1);
	      }
          $sRet_Javs .= 
		     $sJavaTravarJ.
	         "document.location.href = './car_js.php?nomeacs=".$sNomeAcesso."&mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR&acaoAnt=".$sAcao."';";

       }
	   $bMontarJanela = false;
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .= 
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."'); ".
		  "parent.Disabled_In_Elems('".$sNomeIdJConsulta."',false);".
    	  'parent.document.getElementById("iCadMPG_PChave").focus();'.
		  "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
		  (@$_REQUEST['acaoAnt']=='SALVAR' ? "parent.Car_".$sNomeAcesso."1.P_Atu();" : '').
		  "";
	   $bMontarJanela = false;
	//
	// NOVO REGISTRO
	} ElseIf ( $sAcao=="NV" ) {
	   $sMPG_CodigoI = 'NOVO';
	   $sAcao = '';
	//
	// PUXAR REGISTRO
	} Else {
	   If (STRLEN($sMPG_CodigoI)==0) {
	      $bMontarJanela = False;
	      $sAcao = 'FECHAR';
          $sRet_Javs .= 
		     "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
	   	     Info_Evento('Selecione uma modalidade de pagamento.');
	   } Else {
          $Row_CadMPG = MYSQL_QUERY("SELECT * FROM cad_modalidade_pag WHERE MPG_CODIGOI=".($sMPG_CodigoI+0)." ;") or die(MYSQL_ERROR());
          If (! $Row_CadMPG = MYSQL_FETCH_ARRAY($Row_CadMPG)) {
	         $Row_CadMPG = ARRAY();
	      }
	   }
       //
	}
	If ($bMontarJanela) {
	   //
	   // Montar combo dos índices no SAT
	   $sCmb_IndModSat = 
          '<option value="0">'.
           '** Nenhum selecionado **'.
          '</option>';
       ForEach ( $aFscSAT_IndTrsFun As $nIndice => $sModalidade ) {
        $sCmb_IndModSat .=
          '<option value="'.$nIndice.'"'.( (0+@$Row_CadMPG['MPG_IND_SAT'])==$nIndice ? ' selected' : '').'>'.
           Str_Zero($nIndice,2).' - '.$sModalidade.
          '</option>';
       }
	   //
	   $oJanelaPrinc->aIdsObjList =
	      ARRAY('iCadEMPG_Descric' ,'iCadEMPG_Mos_Rec','iCadEMPG_N_Ordem',
		        'iCadEMPG_P_Troc'  ,'iCadEMPG_Ind_ECF','iCadEMPG_Ind_SAT',
				'iCadEMPG_P_FinCTR','iCadEMPG_P_TotRe','iCadEMPG_Emi_ECF'
		  );
       // Tela HTML
	   //
	   $sMPG_CodigoI = Str_Zero($sMPG_CodigoI, 4);
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmECadMPG" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'3">'.
             '<input name="mod" type="hidden" value="'.$sModulo.'">'.
             '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
             '<input name="acao" type="hidden" value="">'.
    	     '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
       	     '<table width="100%" border="0">'.
			    '<tr>'.
       	           '<td width="4px" height="24px">&nbsp;</td>'.
       	           '<td align="left" width="90px">'.
		              'Código:'.
			          '<input id="iCadEMPG_CodigoI" name="MPG_CodigoI" type="text" value="'.$sMPG_CodigoI.'" readonly="readonly" style="width:44px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	           '</td>'.
       	           '<td align="left">'.
		              'Descrição:'.
			          '<input tabIndex="1" id="iCadEMPG_Descric" name="MPG_Descric" type="text" value="'.@$Row_CadMPG['MPG_DESCRIC'].'" maxlength="40" style="width:80%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	           '</td>'.
		        '</tr>'.
		     '</table>'.
		  
		     '<table width="100%" border="0">'.
			   '<tr>'.
		           '<td>'.
				      '<tr>'.
					     '<td>&nbsp;</td>'.
       	                 '<td align="right">'.
			                '<input tabIndex="2" id="iCadEMPG_Mos_Rec" name="MPG_Mos_Rec" type="checkbox" value="1" '.(@$Row_CadMPG['MPG_MOS_REC'] ? 'checked' : '').'>'.
       	                 '</td>'.
       	                 //
				         '<td align="left" style="border-right-style: solid; border-color:#0099FF;">'.
		                    'Mostrar no recebimento de clientes ?'.
		                 '</td>'.
			             '<td align="left" style="border-bottom-style: solid; border-width: 1px;border-color:#0099FF;">'.
		                    '<input tabIndex="2" id="iCadEMPG_Mos_Pag" name="MPG_Mos_Pag" type="checkbox" value="1" '.(@$Row_CadMPG['MPG_MOS_PAG'] ? 'checked' : '').'>'.
						    'Mostrar no pagamento de fornecedores ?'.
	                     '</td>'.
						 
						 '<td>&nbsp;</td>'.  
	
		              '</tr>'.
					  '<tr>'.
       	                 '<td>&nbsp;</td>'.
       	   	   	   	   	 '<td align="right">'.
		   	   	   	   		'<input tabIndex="4" id="iCadEMPG_P_Troco" name="MPG_P_Troco" type="checkbox" value="1" '.(@$Row_CadMPG['MPG_P_TROCO'] ? 'checked' : '').'>'.
       					 '</td>'.
       	   	   	   	   	 '<td align="left">'.
							'Aceita voltar troco ?'.
       					 '</td>'.
						 '<td>&nbsp;</td>'.
		                 '<td>&nbsp;</td>'.
		   	   	   	  '</tr>'.
					  
           	   	   	  '<tr>'.
       				     '<td>&nbsp;</td>'.
       	   	   	   	   	 '<td align="right">'.
		   	   	   	   		'<input tabIndex="5" id="iCadEMPG_P_FinCTR" name="MPG_Fin_CTR" type="checkbox" value="1" '.(@$Row_CadMPG['MPG_FIN_CTR'] ? 'checked' : '').'>'.
       					 '</td>'.
       	   	   	   	   	 '<td align="left">'.
							'Gravar contas à receber ?'.
       					 '</td>'.
						 '<td>&nbsp;</td>'.
		                 '<td>&nbsp;</td>'.
		              '</tr>'. 
           	   	   	  '<tr>'.
       				     '<td>&nbsp;</td>'.
       	   	   	   	   	 '<td align="right">'.
		   	   	   	   		'<input tabIndex="5" id="iCadEMPG_Cartao" name="MPG_Cartao" type="checkbox" value="1" '.(@$Row_CadMPG['MPG_CARTAO'] ? 'checked' : '').'>'.
       					 '</td>'.
       	   	   	   	   	 '<td align="left">'.
							'É do tipo cartão?'.
       					 '</td>'.
						 '<td>&nbsp;</td>'.
		                 '<td>&nbsp;</td>'.
		              '</tr>'.
					  '<tr>'.
       				     '<td>&nbsp;</td>'.
       	   	   	   	   	 '<td align="right">'.
		   	   	   	   		'<input tabIndex="5" id="iCadEMPG_Cheque" name="MPG_Cheque" type="checkbox" value="1" '.(@$Row_CadMPG['MPG_CHEQUE'] ? 'checked' : '').'>'.
       					 '</td>'.
       	   	   	   	   	 '<td align="left">'.
							'É do tipo Cheque?'.
       					 '</td>'.
						 '<td>&nbsp;</td>'.
		                 '<td>&nbsp;</td>'.
		              '</tr>'.					  
           	   	   	  '<tr>'.
       				     '<td>&nbsp;</td>'.
       	   	   	   	   	 '<td align="right">'.
		   	   	   	   	    '<input tabIndex="6" id="iCadEMPG_P_TotRe" name="MPG_P_TotRe" type="checkbox" value="1" '.(@$Row_CadMPG['MPG_P_TOTRE'] ? 'checked' : '').'>'.
       					 '</td>'.
       	   	   	   	   	 '<td align="left">'.
							'Sugere o total à receber nesta modalidade ?'.
       					 '</td>'.
						 '<td>&nbsp;</td>'.
		                 '<td>&nbsp;</td>'.
		   	   	   	  '</tr>'.
           	   	   	  '<tr>'.
       	   	   	   	     '<td>&nbsp;</td>'.
       					 '<td align="right" style="display:'.( $bTribuFiscal ? 'inline-block' : 'none').';">'.
						    //'<span style="width:193px;">&nbsp;</span>'.
		   	   	   	   	    
						'</td>'.
						'<td align="left">'.
							'Índice no emissor fiscal (ECF):&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
							'<input tabIndex="7" id="iCadEMPG_Ind_ECF" name="MPG_Ind_ECF" type="text" value="'.@$Row_CadMPG['MPG_IND_ECF'].'" maxlength="3" style="width:40px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	   	   	   	   	 '</td>'.
						 '<td>&nbsp;</td>'.
		                 '<td>&nbsp;</td>'.
						 
       	   	   	   	  '</tr>'.
           	   	   	  '<tr>'.
       	   	   	   	     '<td>&nbsp;</td>'.
       					 '<td>&nbsp;</td>'.
       					 '<td align="left" style="display:'.( $bTribuFiscal ? 'inline-block' : 'none').';" colspan="2">'.
						    //'<span style="width:193px;">&nbsp;</span>'.
		   	   	   	   	    'Índice no DFe(CF-e,NF-e,NFC-e):&nbsp;&nbsp;'.
                            '<select id="iCadEMPG_Ind_SAT" name="MPG_Ind_SAT" style="width:160px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
                             $sCmb_IndModSat.
                            '</select>'.
							//'<input tabIndex="8" id="iCadEMPG_Ind_SAT" name="MPG_Ind_SAT" type="text" value="'.@$Row_CadMPG['MPG_IND_SAT'].'" maxlength="2" style="width:40px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       					 '</td>'.
		   	   	   	   	 //'<td>&nbsp;</td>'.
						 '<td>&nbsp;</td>'.
       			      '</tr>'.
		   	   	   	   	  //
		   	   	   	  '<tr>'.
       				     '<td>&nbsp;</td>'.
       	   	   	   	   	 '<td align="right">'.
		   	   	   	   		'<input tabIndex="9" id="iCadEMPG_Emi_ECF" name="MPG_Emi_ECF" type="checkbox" value="1" '.(@$Row_CadMPG['MPG_EMI_ECF'] ? 'checked' : '').'>'.
       					 '</td>'.
       	   	   	   	   	 '<td align="left">'.
		                	'Ao receber nesta modalidade Emite Cupom Fiscal ?'.
       					 '</td>'.
        				 '<td>&nbsp;</td>'.
					  '</tr>'.
		   	   	   	  '<tr>'.
       				  '<td>&nbsp;</td>'.
       				  '<td align="right">'.
					  '</td>'.
					  '<td align="left">'.
					     'Numero da ordem de exibição:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
					     '<input tabIndex="3" id="iCadEMPG_N_Ordem" name="MPG_N_Ordem" type="text" value="'.@$Row_CadMPG['MPG_N_ORDEM'].'" maxlength="3" style="width:40px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
					  '</td>'.
					  '<td>&nbsp;</td>'.
					  
					  '<tr>'.
       	                 '<td>&nbsp;</td>'.
       	   	   	   	   	 '<td align="right">'.
		   	   	   	   		'<input tabIndex="4" id="iCadEMPG_RELCAX" name="MPG_RELCAX" type="checkbox" value="1" '.(@$Row_CadMPG['MPG_RELCAX'] ? 'checked' : '').'>'.
       					 '</td>'.
       	   	   	   	   	 '<td align="left">'.
							'Totaliza no Rel. de Caixa ? (Usado para Pg Online APPs de Entrega )'.
       					 '</td>'.
						 '<td>&nbsp;</td>'.
		                 '<td>&nbsp;</td>'.
		   	   	   	  '</tr>'.					  
					  
					  //
				  '</td>'. 
				  
				  
		       '</tr>'.
		     '</table>'.
		  //
          '</form>'.
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'CadEFun_BT_Svl', "document.forms.fmECadMPG.acao.value='SALVAR'; ".
    	                                     "document.forms.fmECadMPG.submit();"
			             , 'Salvar (F10)','images/btimg_salvar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="120px" align="left">'.
       	    HTML_Botao( 3, 'CadEFun_BT_Fec', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
	   //
       // Java posterior
       $sRet_JavsPos .=
    	  'parent.document.getElementById("iCadEMPG_Descric").focus();'.
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==121) { ".        //  ** [F10] **         // (Gravar)
                 "setTimeout( parent.document.getElementById('CadEFun_BT_Svl').onclick , 100);".
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                 "setTimeout( parent.document.getElementById('CadEFun_BT_Fec').onclick , 100);".
		     "} else if ( vNumTecla==13) { ".
			     "sTempId = parent.Proximo_TabI( parent.document.getElementById(parent.sIdHasFocus) );".
				 "if ( sTempId.length>0 ) {".
				     "parent.document.getElementById(sTempId).focus();".
				 "} else {".
    	             'parent.document.getElementById("iCadEMPG_Descric").focus();'.
				 "}".
			     //
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
	      '';
       //
	}
//
//  ** CONSULTA **
} Else {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJConsulta; 
    $oJanelaPrinc->nTop    = 8;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 660;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft   += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Modalidades de pagamento';
	$oJanelaPrinc->sJavOnClick  = "document.getElementById('iCadMPG_PChave').focus();";
    //    
	$sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
	$oJanelaPrinc->sJavOnClickF =
	    $sJavaTravarJ.
        "document.forms.fmPCadMPG.acao.value='FECHAR'; ".
        "document.forms.fmPCadMPG.submod.value=''; ".
        "document.forms.fmPCadMPG.MPG_PChave.value=''; ".
        "document.forms.fmPCadMPG.MPG_NumCam.value=''; ".
        "document.forms.fmPCadMPG.submit();".
		"";
	//
    // Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
    $oTabelaRegs->sNomeTabela  = 'cad_modalidade_pag';
    $oTabelaRegs->sIdObjTabela = 'iQdr_ListaMPG';
    $oTabelaRegs->GLstCampos( 'MPG_CODIGOI,Codigo,60px;'.
                              'MPG_DESCRIC,Descrição;'
    			            );
    $oTabelaRegs->sCampoIndice = 'MPG_CODIGOI';
    $oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight = 400;    // Altura
    $oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."1.P_Sel(<NUMCAM>); Car_".$sNomeAcesso."1.P_Atu();";
    //$oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."1.PRow_Sel(<QTDCOL>,<SELLIN>); Car_".$sNomeAcesso."1.sSelIndice=<INDICE>;";
    $oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."1.PRow_Sel(<QTDCOL>,<SELLIN>);";
    $oTabelaRegs->sLinhaOnDblClk = $sJavaTravarJ.
	                               "Car_".$sNomeAcesso."1.Pesq_Editar();";
    $oTabelaRegs->sJavSelectReg = "sSelIndice = S_Indice;".
	                              "if (parseInt(sSelIndice)>0) {".
								      "parent.document.getElementById('CadCMPG_BT_Edt').style.visibility='visible';".
									  "if (parent.document.forms.fmPCadMPG.MPG_Ativos.value == '1') {".
								          "parent.document.getElementById('CadCMPG_BT_Itv').style.visibility='visible';".
									  "} else {".
								          "parent.document.getElementById('CadCMPG_BT_Atv').style.visibility='visible';".
								      "} ".
								   "} ".
	                              'parent.document.getElementById("iCadMPG_PChave").focus();';
    //
    // MONTAR LISTA DE CADASTROS
    If ( $sAcao=="LISTAR" ) {
       $sP_PChave = @$_REQUEST['MPG_PChave'];
       $nP_NumCam = @$_REQUEST['MPG_NumCam']+0;
	   $bP_Ativos = @$_REQUEST['MPG_Ativos']+0;
       $nIniReg = 0;
       $nQtdReg = 80;
       // Montar condição para a pesquisa
       $sWhereSQL = 'MPG_TRAVADO='.($bP_Ativos ? '0' : '1').' ';
       If ( $nP_NumCam==0 ) { $nP_NumCam=2; }
       $aLstCampo = EXPLODE(',',@$oTabelaRegs->aLstCampos[$nP_NumCam-1]);
       If ( STRLEN(@$aLstCampo[0])>0 ) {
          If ( STRLEN($sP_PChave)>0 ) {
    	     $sWhereSQL .= 'AND '.$aLstCampo[0].' LIKE "%'.$sP_PChave.'%" ';
    	  }
		  $sWhereSQL .= 'ORDER BY '.$aLstCampo[0].' ASC ';
       }
       $oTabelaRegs->sBDParametros = 'WHERE '.$sWhereSQL.' LIMIT '.$nIniReg.','.$nQtdReg;
       // Tabela
       $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
       // Java
       $sRet_Javs .=
         "var iQdr_ListaCli = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."');".
    	 'iQdr_ListaCli.innerHTML = '.JAVA_CharCode($sRet_TelaJ_HTML).';'.
    	 '';
       // Java posterior
       $sRet_JavsPos .=
	     //$bP_Ativos
	     'var AtivosLnk = parent.document.getElementById("CadCMPG_sp_Atv");'.
		 'var fmPrinc = parent.document.forms.fmPCadMPG;'.
		 ($bP_Ativos ?
		    'AtivosLnk.innerHTML="Mostrar inativos";'.
			'AtivosLnk.onclick = function () { '.
			                        'fmPrinc.MPG_Ativos.value = "0";'.
									"parent.Car_".$sNomeAcesso."1.P_Atu();".
			                     '} ;'
		 :
		    'AtivosLnk.innerHTML="Mostrar ativos";'.
			'AtivosLnk.onclick = function () { '.
			                        'fmPrinc.MPG_Ativos.value = "1";'.
									"parent.Car_".$sNomeAcesso."1.P_Atu();".
			                     '} ;'
		 ).
         'parent.Car_'.$sNomeAcesso.'1.P_Sel('.$nP_NumCam.');'.
         'parent.Car_'.$sNomeAcesso.'1.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
         //'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
    	 '';
       $sRet_TelaJ_HTML = '';
    //
    // ATIVAR REGISTRO
    } ElseIf ( $sAcao=="ATIVAR" ) {
	   If ((@$_REQUEST['MPG_CodigoI']+0)>0) {
          MYSQL_QUERY("UPDATE cad_modalidade_pag SET MPG_TRAVADO=0 WHERE MPG_CODIGOI=".(@$_REQUEST['MPG_CodigoI']+0)." ;") or die(MYSQL_ERROR());
	      $sRet_Javs .=
		    'parent.JanEspera(false);'.
		    'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
			'parent.Car_'.$sNomeAcesso.'1.P_Atu();';
	   }
    //
    // INATIVAR REGISTRO (DELETAR)
    } ElseIf ( $sAcao=="INATIVAR" ) {
	   If ((@$_REQUEST['MPG_CodigoI']+0)>0) {
          MYSQL_QUERY("UPDATE cad_modalidade_pag SET MPG_TRAVADO=1 WHERE MPG_CODIGOI=".(@$_REQUEST['MPG_CodigoI']+0)." ;") or die(MYSQL_ERROR());
	      $sRet_Javs .=
		    'parent.JanEspera(false);'.
		    'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
			'parent.Car_'.$sNomeAcesso.'1.P_Atu();';
	   }
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
	      'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
    //
    // JANELA TELA PRINCIPAL
    } Else {
	   //
	   $sJavClkAtiv =
          "JanEspera(true, 'Ativando registro... Aguarde...');".
          "setTimeout( function() { ".
              "document.forms.fmPCadMPG.acao.value='ATIVAR'; ".
              "document.forms.fmPCadMPG.submod.value=''; ".
              "document.forms.fmPCadMPG.MPG_CodigoI.value=Car_".$sNomeAcesso."1.sSelIndice;".
              "document.forms.fmPCadMPG.submit();".
          "}, ".$nTmpFrmEnv.");".
		  "";
	   //
	   // Confirma a inativação do registro
	   $sJavClkInat =
		  JAVA_CharCode(
		     "if (_NUM_BOT_==1) { ".
                 "JanEspera(true, 'Inativando registro... Aguarde...');".
                 "setTimeout( function() { ".
				    "document.forms.fmPCadMPG.acao.value='INATIVAR'; ".
				    "document.forms.fmPCadMPG.submod.value=''; ".
				    "document.forms.fmPCadMPG.MPG_CodigoI.value=Car_".$sNomeAcesso."1.sSelIndice;".
				    "document.forms.fmPCadMPG.submit();".
                 "}, ".$nTmpFrmEnv.");".
		  	"}"
		  );
	   $sJavClkInat =
		  "sIdHasFocus='iCadMPG_PChave';".
	      "Qdr_Prompt_H(true,'Tem certeza que deseja INATIVAR esta modalidade de pagamento?',".$sJavClkInat.",['Sim','Não']); ";
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPCadMPG" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'2">'.
           '<input name="mod" type="hidden" value="'.$sModulo.'">'.
           '<input name="submod" type="hidden" value="">'.
           '<input name="acao" type="hidden" value="">'.
    	   '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
    	   '<input name="MPG_PChave" type="hidden" value="">'.
    	   '<input name="MPG_Ativos" type="hidden" value="1">'.
   	       '<input name="MPG_NumCam" type="hidden" value="">'.
    	   '<input name="MPG_CodigoI" type="hidden" value="">'.
          '</form>'.
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="10px" align="left">&nbsp;</td>'.
       	   '<td align="left" width="70px">'.
       	    'Procurar por: '.
       	   '</td>'.
       	   '<td align="left" width="300px">'.
       	    '<input onkeydown="return Car_'.$sNomeAcesso.'1.Teclas_F(this,event);" id="iCadMPG_PChave" type="text" maxlength="30" style="width:98%; height:24px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	   '</td>'.
       	   '<td align="center">'.
		    '<span id="CadCMPG_sp_Atv" style="cursor:pointer; font-weight:bold; font-size:14px;"></span>'.
       	   '</td>'.
       	   '<td align="left" width="115px">'.
       	   HTML_Botao( 3, 'CadMPG_BT_Pro', 'Car_'.$sNomeAcesso.'1.P_Atu();'
		                , 'Procurar'     ,'images/btimg_lupa.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oTabelaRegs->MontaDivHtml().
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'CadCMPG_BT_Nov', $sJavaTravarJ.
                                             "document.forms.fmPCadMPG.acao.value='NV'; ".
			                                 "document.forms.fmPCadMPG.submod.value='EDT'; ".
    	                                     "document.forms.fmPCadMPG.submit();"
			             , 'Novo (F6)'   ,'images/btimg_novo.png').'&nbsp;&nbsp;&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCMPG_BT_Edt', $sJavaTravarJ.
			                                 "Car_".$sNomeAcesso."1.Pesq_Editar();"
			             , 'Editar (F7)' ,'images/btimg_editar.png',100).'&nbsp;&nbsp;&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCMPG_BT_Itv', $sJavClkInat
			             , 'Inativar (F8)','images/btimg_remover.png',110).
       	    HTML_Botao( 3, 'CadCMPG_BT_Atv', $sJavClkAtiv
			             , 'Ativar (F8)','images/btimg_ativar.png',110).
       	   '</td>'.
       	   '<td width="125px" align="left">'.
       	    HTML_Botao( 3, 'CadCMPG_BT_Fch', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_Javs .=
		  'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
          "var sSelIndice='0';".
          $oTabelaRegs->MontaJavaPri().
          "function P_Atu() {".
		    $oTabelaRegs->MontaJavaAgu().
            "sSelIndice='0';".
			"parent.document.getElementById('CadCMPG_BT_Edt').style.visibility='hidden';".
            "parent.document.getElementById('CadCMPG_BT_Itv').style.visibility='hidden';".
            "parent.document.getElementById('CadCMPG_BT_Atv').style.visibility='hidden';".
         	"parent.document.forms.fmPCadMPG.acao.value='LISTAR'; ".
            "parent.document.forms.fmPCadMPG.submod.value=''; ".
         	"parent.document.forms.fmPCadMPG.MPG_PChave.value=parent.document.getElementById('iCadMPG_PChave').value; ".
         	"parent.document.forms.fmPCadMPG.MPG_NumCam.value=nPesq_CampoSel+''; ".
         	"setTimeout( function() { parent.document.forms.fmPCadMPG.submit(); }, 100);".
          '}'.
		  'function Pesq_Editar() {'.
            "parent.document.forms.fmPCadMPG.acao.value='';".
            "parent.document.forms.fmPCadMPG.submod.value='EDT';".
            "parent.document.forms.fmPCadMPG.MPG_CodigoI.value=sSelIndice;".
            "parent.document.forms.fmPCadMPG.submit();".
		  '}'.
          '';
       // Java posterior
       $sRet_JavsPos .=
		  "P_Atu();".
    	  'parent.document.getElementById("iCadMPG_PChave").focus();'.
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==117) { ".        //  ** [F6] **          // (Novo)
                 "setTimeout( parent.document.getElementById('CadCMPG_BT_Nov').onclick , 100);".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==118) { ". //  ** [F7] **          // (Editar)
                 "if ( parent.document.getElementById('CadCMPG_BT_Edt').style.visibility=='visible') {".
                      "setTimeout( parent.document.getElementById('CadCMPG_BT_Edt').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==119) { ". //  ** [F8] **          // (Inativar)
                 "if ( parent.document.getElementById('CadCMPG_BT_Itv').style.visibility=='visible') {".
                      "setTimeout( parent.document.getElementById('CadCMPG_BT_Itv').onclick , 100);".
					                                                   // (Ativar)
                 "} else if ( parent.document.getElementById('CadCMPG_BT_Atv').style.visibility=='visible') {".
                      "setTimeout( parent.document.getElementById('CadCMPG_BT_Atv').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                  "setTimeout( parent.document.getElementById('CadCMPG_BT_Fch').onclick , 100);".
			 "} else {".
		          "P_TeclasPress_fm(Evento);".
			      "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
    	  "";
    }
}
?>