Incio em 27/11/2025 17:12:44
psFileDDS=dd_files/erp_Tipo_Cobrancas.dda, psTagDDS=Esc_Padrao_2, psAncestrais=4654009, psIrmasTias=5/31217/1383649, psLogin=379, psDSN=, psTDoc=
psMnemTDoc=FIN_Titulos, psOOpLogin=86, psRoot=1
psMarcados=, sInMarcados=00, sInMarcados=00, psCliPasta=desenvolvimento
plMobile=0, plEchoJson=0, plEchoUtf8=0
psDSN=127.0.0.1:/qtux/database/tq/gps_01.gdb
psVars=sTipoCob=~p0=~pCedente=5~p1=5
al_Get_fsLoad_include.php-inicio
fsLoadTag
fsLoadBloco
fsLoadFTag
fsLoadFBloco
al_Get_fsLoad_include.php-fim-sTxt=<Padrao_1> 
   sTagMnemTDoc     = Tipo_Cobrancas
   sTagTit          = Tit1
   sTagCpoTit       = CpoTit1
   sTagCpo          = Cpo1
   sTagSql          = Sql1
   sTagSqlSum       = SqlSum1
   sTagMainTable    = Tipo_Cobrancas
   sTagMenu         = Menu1
   sTagNr0          = Nr02
   sTagTipoNr0      = TipoNr02
   sTagToolsBar     = Incluir,Excluir,Alterar,Zoom,Pesquisar
   sTagRAc          = false
   sTagPesquisar    = Pesquisar1
   sTagDbToVars     = DbToVars1       
   sTagVarsDef      = VarsDefault1
   sTagScript       = ScriptForm1    
   sTagVarsToServer = VarsToServer1  
   sTagVarsToDb     = VarsToDb1      
   sTagServerVal    = ServerValids1  
   sTagTitulo       = TelaTit1
   sLabelsAlign     = Left
</Padrao_1>
<Esc_Padrao_1>
   sTagMnemTDoc     = Tipo_Cobrancas
   sTagTit          = Esc_Tit1
   sTagCpoTit       = Esc_CpoTit1
   sTagCpo          = Esc_Cpo1
   sTagSql          = Esc_Sql1
   sTagSqlEscVars   = Esc_SqlVars1
   sTagNr0          = Nr01
   sTagTipoNr0      = TipoNr01
   sTagCpoEscVars   = Esc_VarsServerToClient1
   sTagToolsBar     = Pesquisar
</Esc_Padrao_1>
<Esc_Padrao_2>
   sTagMnemTDoc     = Tipo_Cobrancas
   sTagTit          = Esc_Tit1
   sTagCpoTit       = Esc_CpoTit1
   sTagCpo          = Esc_Cpo1
   sTagSql          = Esc_Sql2
   sTagSqlEscVars   = Esc_SqlVars1
   sTagNr0          = Nr01
   sTagTipoNr0      = TipoNr01
   sTagCpoEscVars   = Esc_VarsServerToClient1
   sTagToolsBar     = Pesquisar
</Esc_Padrao_2>
<Esc_Padrao_3>
   sTagMnemTDoc     = Tipo_Cobrancas
   sTagTit          = Esc_Tit1
   sTagCpoTit       = Esc_CpoTit1
   sTagCpo          = Esc_Cpo1
   sTagSql          = Esc_Sql3
   sTagSqlEscVars   = Esc_SqlVars1
   sTagNr0          = Nr01
   sTagTipoNr0      = TipoNr01
   sTagCpoEscVars   = Esc_VarsServerToClient1
   sTagToolsBar     = Pesquisar
</Esc_Padrao_3>
<Esc_Padrao_4>
   sTagMnemTDoc     = Tipo_Cobrancas
   sTagTit          = Esc_Tit1
   sTagCpoTit       = Esc_CpoTit1
   sTagCpo          = Esc_Cpo1
   sTagSql          = Esc_Sql4
   sTagSqlEscVars   = Esc_SqlVars1
   sTagNr0          = Nr01
   sTagTipoNr0      = TipoNr01
   sTagCpoEscVars   = Esc_VarsServerToClient1
   sTagToolsBar     = Pesquisar
</Esc_Padrao_4>
<Esc_Padrao_5>
   sTagMnemTDoc     = Tipo_Cobrancas
   sTagTit          = Esc_Tit1
   sTagCpoTit       = Esc_CpoTit1
   sTagCpo          = Esc_Cpo1
   sTagSql          = Esc_Sql5
   sTagSqlEscVars   = Esc_SqlVars1
   sTagNr0          = Nr01
   sTagTipoNr0      = TipoNr01
   sTagCpoEscVars   = Esc_VarsServerToClient1
   sTagToolsBar     = Pesquisar
</Esc_Padrao_5>
<Tit1>Tipo de Crdito & Cobrana / Pagamentos</Tit1>
<CpoTit1>
   ID-i-10
   Tipo-s-20
   UNeg-s-10
   Cdigo-s-20
   Descrio-s-50
   Banco-s-30
   Juros por Dias %-n-3
</CpoTit1>
<Cpo1>
   $aLin["PPID"]
   $aLin["JTIPO"]==0 ? $aLin["SSIGLA"] : ($aLin["JTIPO"]==1 ? 'Representante' : ($aLin["JTIPO"]==2 ? 'Fornecedor' : ($aLin["JTIPO"]==3 ? 'Transportador' : 'Padro')) )
   $aLin["SSIGLA"]
   $aLin["SCODIGO"]
   $aLin["SDESCRICAO"]
   $aLin["JBANCO"]==0 ? 'Itau': ($aLin["JBANCO"]==1 ?  'Bradesco' : ($aLin["JBANCO"]==2 ?  'Banco do Brasil' : ($aLin["JBANCO"]==3 ? 'Caixinha' : ($aLin["JBANCO"]==4 ? 'Santander' : '') ) ) )
   $aLin["N1JUROS1DIA"]
   $aLin["PPID"]
</Cpo1>
<Sql1>
   select a.pPId,
          a.jTipo,
          a.sCodigo,
          a.sDescricao,
          a.jBanco,
          a.n1Juros1Dia,
          b.sSigla 
   from Tipo_Cobrancas a left join CUP b on a.pUNeg = b.pPId and b.iVer = b.iVAt
   where a.iVer = a.iVAt
     and a.lExc = 0
   order by 2
</Sql1>
<Pesquisar1>
   ((upper(a.sCodigo) like '%{p0}%') or (upper(a.sDescricao) like '%{p0}%'))
</Pesquisar1>
<Menu1>
</Menu1> 
<Nr01>alert("Qtux-Dialog\n\nNada a relacionar ...")</Nr01>
<Nr02>oGrid.flGridInc()</Nr02>
<TipoNr01>0</TipoNr01>
<TipoNr02>1</TipoNr02>
<Esc_Tit1>Tipo de Cobranas, resultado da busca por: [{p0}]</Esc_Tit1>
<Esc_CpoTit1>
   Cdigo-s-20
   Descrio-s-50
</Esc_CpoTit1>
<Esc_Cpo1>
   $aLin["SCODIGO"]
   $aLin["SDESCRICAO"]
   $aLin["PPID"]
</Esc_Cpo1>
<Esc_Sql1>
   select a.pPId,
          a.sCodigo,
          a.sDescricao
   from Tipo_Cobrancas a
   where a.iVer = a.iVAt
     and a.lExc = 0
     and (upper(a.sDescricao) like upper('%{p0}%') or  upper(a.sCodigo) like upper('%{p0}%'))
   order by 2
</Esc_Sql1>
<Esc_Sql2> 
   select a.pPId,
          a.sCodigo,
          a.sDescricao
   from Tipo_Cobrancas a
   where a.iVer = a.iVAt
     and a.lExc = 0
     and (upper(a.sDescricao) like upper('%{p0}%') or  upper(a.sCodigo) like upper('%{p0}%'))
     and (a.pUNeg = {p1} or a.jTipo = 4)
   union
   select k.pPId,
          k.sCodigo,
          k.sDescricao
   from PFinHold_Linha   a join PFinHold               i on a.pCapa    = i.pPId  and i.iVer  = i.iVAt and i.lExc=0
                           join Tipo_Cobrancas         k on a.pTipoCob = k.pPId  and k.iVer = k.iVAt
   where a.iVer = a.iVAt
     and a.pUNeg = {p1}
     and (upper(k.sDescricao) like upper('%{p0}%') or  upper(k.sCodigo) like upper('%{p0}%'))
     and a.lExc = 0
   order by 2
</Esc_Sql2>
<Esc_Sql3> 
   select a.pPId,
          a.sCodigo,
          a.sDescricao
   from Tipo_Cobrancas a
   where a.iVer = a.iVAt
     and a.lExc = 0
     and (upper(a.sDescricao) like upper('%{p0}%') or  upper(a.sCodigo) like upper('%{p0}%'))
     and (a.jTipo = 1 or a.jTipo = 4)
   order by 2
</Esc_Sql3>
<Esc_Sql4> 
   select a.pPId,
          a.sCodigo,
          a.sDescricao
   from Tipo_Cobrancas a
   where a.iVer = a.iVAt
     and a.lExc = 0
     and (upper(a.sDescricao) like upper('%{p0}%') or  upper(a.sCodigo) like upper('%{p0}%'))
     and (a.jTipo = 2 or a.jTipo = 4)
   order by 2
</Esc_Sql4>
<Esc_Sql5> 
   select a.pPId,
          a.sCodigo,
          a.sDescricao
   from Tipo_Cobrancas a
   where a.iVer = a.iVAt
     and a.lExc = 0
     and (upper(a.sDescricao) like upper('%{p0}%') or  upper(a.sCodigo) like upper('%{p0}%'))
     and (a.jTipo = 3 or a.jTipo = 4)
   order by 2
</Esc_Sql5>
<Esc_SqlVars1>
   select a.pPId,
          a.sCodigo,
          a.sDescricao,
          a.iVer
   from Tipo_Cobrancas a
   where a.pPId = {pEscId}
     and a.iVer = a.iVAt
</Esc_SqlVars1>
<Esc_VarsServerToClient1>
   $aLin["PPID"]
   $aLin["SCODIGO"]
   $aLin["SDESCRICAO"]
   $aLin["IVER"]
</Esc_VarsServerToClient1>
<TelaTit1>Crdito & Cobrana / Pagamentos</TelaTit1>
<DbToVars1>
   select a.pPId,
          a.tInc,
          a.iVer,
          a.iVAt,
          a.sCodigo,   
          a.sDescricao,
          a.pCC,
          g.sAgencia   sCodAgencia,
          g.sCoringa   sDesAgencia,
          h.sCodigo    sCodBanAgencia,   
          h.sDescricao sDesBanAgencia,   
          a.lBoleto,   
          a.lBancaria,
          a.jBanco,    
          a.j1Oco,     
          a.j1Carteira,
          a.j1Especie, 
          a.j1InstrC,  
          a.n1Juros1Dia,
          a.j2Oco,
          a.j2Carteira,
          a.j2Especie,
          a.j2InstrC,
          a.n2Juros1Dia,
          a.sBradCodEmpresa, 
          a.sBradCarteira,   
          a.jBradOcorrencia, 
          a.jBradEspecie,    
          a.jBradInstrucao,  
          a.iBradDiasProt,   
          a.nBradJur1D,
          a.pUNeg,
          b.sCoringa sUNeg,
          a.jTipo,
          a.iItauDiasProt,
          a.iSantDiasProt,
          a.lDefaultMigrarCIA,
          a.nMulta,
          a.nProRata,
          a.jTpCobPag,
          z.sCoringa  
   from Tipo_Cobrancas a left join CUP   b on a.pUNeg  = b.pPId and b.iVer = b.iVAt
                         left join CUP   g on a.pCC    = g.pPId and g.iVer = g.iVAt
                         left join Banco h on g.pBanco = h.pPId and h.iVer = h.iVAt,
        CUP z
   where a.pPId  =  {pId} and a.iVer ={a.iVer}
     and a.pInc  = z.pPId and z.iVer = z.iVAt
</DbToVars1>
<VarsDefault1>
    sVerVAt = {iVer+'/'+iVAt}
    sRastro = {'ID '+pPId+' '+sVerVAt+', '+sCoringa+', '+tInc}
    aBanco = Itau,Bradesco,Banco do Brasil,Caixinha,Santander
    jBanco = 3;
    a1Oco      = 01-REMESSA TODOS OS CAMPOS,02-PEDIDO DE BAIXA,04-CONCESSO DE ABATIMENTO (INDICADOR 12.5),05-CANCELAMENTO DE ABATIMENTO,06-ALTERAO DO VENCIMENTO,07-ALTERAO DO USO DA EMPRESA,08-ALTERAO DO SEU NMERO,09-PROTESTAR,10-NO PROTESTAR,11-PROTESTO PARA FINS FALIMENTARES,18-SUSTAR O PROTESTO,30-EXCLUSO DE SACADOR AVALISTA,31-ALTERAO DE OUTROS DADOS,34-BAIXA POR TER SIDO PAGO DIRETAMENTE AO CEDENTE,35-CANCELAMENTO DE INSTRUO,37-ALTERAO DO VENCIMENTO E SUSTAR PROTESTO,38-CEDENTE NO CONCORDA COM ALEGAO DO SACADO,47-CEDENTE SOLICITA DISPENSA DE JUROS
    a1Carteira = 112-ESCRITURAL ELETRNICA . SIMPLES,115-ESCRITURAL ELETRNICA . SIMPLES . FAIXA NOSSO NMERO LIVRE,104-ESCRITURAL ELETRNICA . CARN,147-ESCRITURAL ELETRNICA . DLAR,188-ESCRITURAL ELETRNICA - COBRANA INTELIGENTE (B2B),108-DIRETA ELETRNICA EMISSO INTEGRAL . CARN,109-DIRETA ELETRNICA SEM EMISSO . SIMPLES,150-DIRETA ELETRNICA SEM EMISSO . DLAR,121-DIRETA ELETRNICA EMISSO PARCIAL . SIMPLES,180-DIRETA ELETRNICA EMISSO INTEGRAL . SIMPLES,175-SEM REGISTRO SEM EMISSO COM PROTESTO ELETRNICO,198-SEM REGISTRO SEM EMISSO 15 DGITOS,142-SEM REGISTRO SEM EMISSO 15 DGITOS IOF 4%,143-SEM REGISTRO SEM EMISSO 15 DGITOS COM IOF 7%,174-SEM REGISTRO EMISSO PARCIAL COM PROTESTO BORDER,177-SEM REGISTRO EMISSO PARCIAL COM PROTESTO ELETRNICO,129-SEM REGISTRO EMISSO PARCIAL SEGUROS COM IOF 2%,139-SEM REGISTRO EMISSO PARCIAL SEGUROS COM IOF 4%,169-SEM REGISTRO EMISSO PARCIAL SEGUROS COM IOF 7%,172-SEM REGISTRO COM EMISSO INTEGRAL,102-SEM REGISTRO COM EMISSO INTEGRAL . CARN,107-SEM REGISTRO COM EMISSO INTEGRAL . 15 POSIES - CARN,173-SEM REGISTRO COM EMISSO E ENTREGA,103-SEM REGISTRO COM EMISSO E ENTREGA . CARN,196-SEM REGISTRO COM EMISSO E ENTREGA . 15 POSIES
    a1Especie  = 01-DUPLICATA MERCANTIL,02-NOTA PROMISSRIA,03-NOTA DE SEGURO,04-MENSALIDADE ESCOLAR,05-RECIBO,06-CONTRATO,07-COSSEGUROS,08-DUPLICATA DE SERVIO,09-LETRA DE CMBIO,13-NOTA DE DBITOS,15-DOCUMENTO DE DVIDA,16-ENCARGOS CONDOMINIAIS,17-CONTA DE PRESTAO DE SERVIOS,99-DIVERSOS
    a1InstrC   = 02-DEVOLVER APS 05 DIAS DO VENCIMENTO,03-DEVOLVER APS 30 DIAS DO VENCIMENTO,05-RECEBER CONFORME INSTRUES NO PRPRIO TTULO,06-DEVOLVER APS 10 DIAS DO VENCIMENTO,07-DEVOLVER APS 15 DIAS DO VENCIMENTO,08-DEVOLVER APS 20 DIAS DO VENCIMENTO,09-PROTESTAR ,10-NO PROTESTAR (inibe protesto, quando houver instruo permanente na conta corrente),11-DEVOLVER APS 25 DIAS DO VENCIMENTO,12-DEVOLVER APS 35 DIAS DO VENCIMENTO,13-DEVOLVER APS 40 DIAS DO VENCIMENTO,14-DEVOLVER APS 45 DIAS DO VENCIMENTO,15-DEVOLVER APS 50 DIAS DO VENCIMENTO,16-DEVOLVER APS 55 DIAS DO VENCIMENTO,17-DEVOLVER APS 60 DIAS DO VENCIMENTO,18-DEVOLVER APS 90 DIAS DO VENCIMENTO,19-NO RECEBER APS 05 DIAS DO VENCIMENTO,20-NO RECEBER APS 10 DIAS DO VENCIMENTO,21-NO RECEBER APS 15 DIAS DO VENCIMENTO,22-NO RECEBER APS 20 DIAS DO VENCIMENTO,23-NO RECEBER APS 25 DIAS DO VENCIMENTO,24-NO RECEBER APS 30 DIAS DO VENCIMENTO,25-NO RECEBER APS 35 DIAS DO VENCIMENTO,26-NO RECEBER APS 40 DIAS DO VENCIMENTO,27-NO RECEBER APS 45 DIAS DO VENCIMENTO,28-NO RECEBER APS 50 DIAS DO VENCIMENTO,29-NO RECEBER APS 55 DIAS DO VENCIMENTO,30-IMPORTNCIA DE DESCONTO POR DIA,31-NO RECEBER APS 60 DIAS DO VENCIMENTO,32-NO RECEBER APS 90 DIAS DO VENCIMENTO,33-CONCEDER ABATIMENTO REF.  PIS-PASEP/COFIN/CSSL, MESMO APS VENCIMENTO,34-PROTESTAR APS XX DIAS CORRIDOS DO VENCIMENTO,35-PROTESTAR APS XX DIAS TEIS DO VENCIMENTO,37-RECEBER AT O LTIMO DIA DO MS DE VENCIMENTO,38-CONCEDER DESCONTO MESMO APS VENCIMENTO,39-NO RECEBER APS O VENCIMENTO,40-CONCEDER DESCONTO CONFORME NOTA DE CRDITO,42-PROTESTO PARA FINS FALIMENTARES,43-SUJEITO A PROTESTO SE NO FOR PAGO NO VENCIMENTO,44-IMPORTNCIA POR DIA DE ATRASO A PARTIR DE DDMMAA,45-TEM DIA DA GRAA,46-USO DO BANCO,47-DISPENSAR JUROS/COMISSO DE PERMANNCIA,51-RECEBER SOMENTE COM A PARCELA ANTERIOR QUITADA,52-EFETUAR O PAGAMENTO SOMENTE ATRAVS DESTE BOLETO E NA REDE BANCRIA,53-USO DO BANCO,54-APS VENCIMENTO PAGVEL SOMENTE NA EMPRESA,56-USO DO BANCO,57-SOMAR VALOR DO TTULO AO VALOR DO CAMPO MORA/MULTA CASO EXISTA,58-DEVOLVER APS 365 DIAS DE VENCIDO,59-COBRANA NEGOCIADA. PAGVEL SOMENTE POR ESTE BOLETO NA REDE BANCRIA,61-TTULO ENTREGUE EM PENHOR EM FAVOR DO BENEFICIRIO ACIMA,62-TTULO TRANSFERIDO A FAVOR DO BENEFICIRIO,66-ENTRADA EM NEGATIVAO EXPRESSA (IMPRIME: SUJEITO A NEGATIVAO APS O VENCIMENTO),67-NO NEGATIVAR (INIBE A ENTRADA EM NEGATIVAO EXPRESSA),70-A 75 USO DO BANCO,78-VALOR DA IDA ENGLOBA MULTA DE 10% PRO RATA,79-COBRAR JUROS APS 15 DIAS DA EMISSO (para ttulos com vencimento  vista),80-PAGAMENTO EM CHEQUE: SOMENTE RECEBER COM CHEQUE DE EMISSO DO PAGADOR,83-OPERAO REF A VENDOR,84-APS VENCIMENTO CONSULTAR A AGNCIA BENEFICIRIO,86-ANTES DO VENCIMENTO OU APS 15 DIAS, PAGVEL SOMENTE EM NOSSA SEDE,87-USO DO BANCO,88-NO RECEBER ANTES DO VENCIMENTO,89-USO DO BANCO,90-NO VENCIMENTO PAGVEL EM QUALQUER AGNCIA BANCRIA,91-NO RECEBER APS XX DIAS DO VENCIMENTO,92-DEVOLVER APS XX DIAS DO VENCIMENTO,93-MENSAGENS NOS BOLETOS COM 30 POSIES,94-MENSAGENS NOS BOLETOS COM 40 POSIES,95 A 97-USO DO BANCO,98-DUPLICATA / FATURA N
    aBradOcorrencia  = 01-Remessa,02-Pedido de baixa ,04-Concesso de abatimento ,05-Cancelamento de abatimento concedido ,06-Alterao de vencimento ,07-Alterao do controle do participante ,08-Alterao de seu nmero ,09-Pedido de protesto ,18-Sustar protesto e baixar Ttulo ,19-Sustar protesto e manter em carteira ,31-Alterao de outros dados ,35-Desagendamento do dbito automtico ,68-Acerto nos dados do rateio de Crdito ,69-Cancelamento do rateio de crdito 
    aBradEspecie     = 01-Duplicata,02-Nota Promissria,03-Nota de Seguro ,04-Cobrana Seriada ,05-Recibo ,10-Letras de Cmbio ,11-Nota de Dbito ,12-Duplicata de Serv ,99-Outros 
    aBradInstrucao   = 00-Nao informado,06-Protesto,08-No cobrar juros de mora,09-No receber aps o vencimento,11-No receber aps o 8 dia do vencimento,12-Cobrar encargos aps o 5 dia do vencimento ,13-Cobrar encargos aps o 10 dia do vencimento,14-Cobrar encargos aps o 15 dia do vencimento,15-Conceder desconto mesmo se pago aps o vencimento
    aSantCarteira   = 1-ELETRNICA COM REGISTRO,2-ELETRNICA COM REGISTRO,3-CAUCIONADA ELETRNICA,5-RPIDA COM REGISTRO(BLOQUETE EMITIDO PELO CLIENTE),6-CAUCIONADA RAPIDA
    aSantOcorrencia = 01-ENTRADA DE TTULO,02-BAIXA DE TTULO,04-CONCESSO DE ABATIMENTO,05-CANCELAMENTO ABATIMENTO,06-PRORROGAO DE VENCIMENTO,07-ALT. NMERO CONT.CEDENTE,08-ALTERAO DO SEU NMERO,09-PROTESTAR,18-SUSTAR PROTESTO
    aSantEspecie    = 01-DUPLICATA,02-NOTA PROMISSRIA,03-APLICE / NOTA DE SEGURO,05-RECIBO,06-DUPLICATA DE SERVIO,07-LETRA DE CAMBIO
    aSantSegInstr   = 00-NO H INSTRUES,02-BAIXAR APS QUINZE DIAS DO VENCIMENTO,03-BAIXAR APS 30 DIAS DO VENCIMENTO,04-NO BAIXAR,06-PROTESTAR (VIDE POSIO392/393),07-NO PROTESTAR,08-NO COBRAR JUROS DE MORA
    aTipo           = Unidade de Negcio,Representante,Fornecedor,Transportador,Padro
    aTpCobPag       = Crdito & Cobrana,Pagamentos
</VarsDefault1>
<ScriptForm1>
   Rastreabilidade    ; sRastro-100     ; fontweight='bold' ; editable=false  ; visible=(iDDFChamada>0)
   Identificao      ;                 ; fontweight='bold'
   ;
   Tipo Cred Cob/ Pag ; aTpCobPag[jTpCobPag] ; identlabel=5 ;
   ;
   Tipo               ; aTipo[jTipo]    ; identlabel=5 ; exec=(this.flSetVar('pUNeg',0) && this.flSetVar('sUNeg',''))
   Unidade de Negcio ; sUNeg-80        ; identlabel=5 ; esc=('dd_files/UNeg.dda','Esc_Padrao_1','sUNeg','pUNeg,sUNeg') ; visible=(jTipo==0)
   ;
   Banco              ; aBanco[jBanco]  ; identlabel=5 ; exec=(this.flSetVar('sBradCodEmpresa','') && this.flSetVar('sBradCarteira','')&& this.flSetVar('jBradOcorrencia',0)&& this.flSetVar('jBradEspecie',0)&& this.flSetVar('jBradInstrucao',0)&& this.flSetVar('iBradDiasProt',0)&& this.flSetVar('nBradJur1D','0,00000'))
   ;
   Cdigo             ; sCodigo-20      ; identlabel=5
   Descrio          ; sDescricao-60   ; identlabel=5 
   Gera Boleto?       ; lBoleto         ; identlabel=5 ; visible=(jTpCobPag==0)
   ; ; visible=(jTpCobPag==0)
   Conta Corrente     ; lBancaria         ; identlabel=5     ; visible=(jTpCobPag==0)
   Nmero da Agncia  ; sCodAgencia-20    ; identlabel=5     ; visible=(lBancaria==1) ; esc=('dd_files/erp_Agencias.dda','Esc_Padrao_1','sCodAgencia','pCC,sCodAgencia,sDesBanAgencia,sCodBanAgencia,sDesAgencia')
   Nome da Agncia    ; sDesAgencia-50    ; identlabel=5     ; visible=(lBancaria==1) ; editable=false
   Cdigo do Banco    ; sCodBanAgencia-20 ; identlabel=5     ; visible=(lBancaria==1) ; editable=false
   Nome do Banco      ; sDesBanAgencia-50 ; identlabel=5     ; visible=(lBancaria==1) ; editable=false
   ;
Ita ;                 ; fontweight='bold' ; visible=( jBanco==0 && jTpCobPag==0 )
   Ocorrncia          ; a1Oco [j1Oco]         ; identlabel=5 ; visible=( jBanco==0 && jTpCobPag==0 )
   ; ; visible=( jBanco==0 && jTpCobPag==0 )
   Carteira            ; a1Carteira[j1Carteira]; identlabel=5 ; visible=( jBanco==0 && jTpCobPag==0 )
   ;; visible=( jBanco==0 && jTpCobPag==0 )
   Espcie             ; a1Especie[j1Especie]  ; identlabel=5 ; visible=( jBanco==0 && jTpCobPag==0 )
   ;; visible=( jBanco==0 && jTpCobPag==0 )
   Instruo           ; a1InstrC[j1InstrC]    ; identlabel=5 ; visible=( jBanco==0 && jTpCobPag==0 )
   ;; visible=( jBanco==0 && jTpCobPag==0 ) 
   Dias Protesto       ; iItauDiasProt-18-5    ; identlabel=5 ; visible=( jBanco==0 && jTpCobPag==0 )
   Juros por Dias %    ; n1Juros1Dia-18-5      ; identlabel=5 ; visible=( jBanco==0 && jTpCobPag==0 )
   ;; visible=( jBanco==0 && jTpCobPag==0 )
Bradesco  ;                 ; fontweight='bold' ; visible=( jBanco==1 && jTpCobPag==0 )
Banco do Brasil           ;                 ; fontweight='bold' ; visible=(jBanco==2 && jTpCobPag==0 )
   Cdigo da Empresa      ;  sBradCodEmpresa-20 ; identlabel=5  ; visible=((jBanco==1 || jBanco==2) && jTpCobPag==0 )
   Carteira               ;  sBradCarteira-3    ; identlabel=5  ; visible=((jBanco==1 || jBanco==2) && jTpCobPag==0 )
   ;; visible=((jBanco==1 || jBanco==2) && jTpCobPag==0)
   Ocorrncia              ; aBradOcorrencia[jBradOcorrencia] ; identlabel=5 ; visible=( (jBanco==1 || jBanco==2) && jTpCobPag==0 )
   ;; visible=((jBanco==1 || jBanco==2) && jTpCobPag==0 )
   Espcie                ; aBradEspecie[jBradEspecie]  ; identlabel=5 ; visible=((jBanco==1 || jBanco==2) && jTpCobPag==0 )
   ;; visible=((jBanco==1 || jBanco==2) && jTpCobPag==0 )
   Instruo              ; aBradInstrucao[jBradInstrucao] ; identlabel=5 ; visible=((jBanco==1 || jBanco==2) && jTpCobPag==0 )
   ;; visible=((jBanco==1 || jBanco==2) && jTpCobPag==0 )
   Dias Protesto          ; iBradDiasProt-10   ; identlabel=5 ; visible=((jBanco==1 || jBanco==2) && jTpCobPag==0 )
   Juros 1 Dia            ; nBradJur1D-18-5    ; identlabel=5 ; visible=((jBanco==1 || jBanco==2) && jTpCobPag==0 )
   Multa por atraso       ; nMulta-18-5    ; identlabel=5 ; visible=((jBanco==1 || jBanco==2) && jTpCobPag==0 )
   Pro rata               ; nProRata-18-5 ; identlabel=5 ; visible=((jBanco==1 || jBanco==2) && jTpCobPag==0 )
   ;; visible=((jBanco==1 || jBanco==2) && jTpCobPag==0)
Santander ;                 ; fontweight='bold' ; visible=(jBanco==4 && jTpCobPag==0 )
   Ocorrncia          ; aSantOcorrencia[j2Oco]    ; identlabel=5 ; visible=(jBanco==4 && jTpCobPag==0 )
   ; ; visible=(jBanco==4 && jTpCobPag==0 )
   Carteira            ; aSantCarteira[j2Carteira] ; identlabel=5 ; visible=(jBanco==4 && jTpCobPag==0 )
   ;; visible=(jBanco==4 && jTpCobPag==0 )
   Espcie             ; aSantEspecie[j2Especie]   ; identlabel=5 ; visible=(jBanco==4 && jTpCobPag==0 )
   ;; visible=(jBanco==4 && jTpCobPag==0 )
   Instruo           ; aSantSegInstr[j2InstrC]   ; identlabel=5 ; visible=(jBanco==4 && jTpCobPag==0 )
   ;; visible=(jBanco==4 && jTpCobPag==0 ) 
   Dias Protesto       ; iSantDiasProt-18-5        ; identlabel=5 ; visible=(jBanco==4 && jTpCobPag==0 )
   Juros por Dias %    ; n2Juros1Dia-18-5          ; identlabel=5 ; visible=(jBanco==4 && jTpCobPag==0 )
   ;; visible=(jBanco==4 && jTpCobPag==0 )
   Default Migrar CIA ; lDefaultMigrarCIA ; identlabel=5 ;
</ScriptForm1>
<VarsToServer1>
   pPId   
   sCodigo    
   sDescricao 
   pCC        
   lBoleto    
   lBancaria 
   jBanco     
   j1Oco      
   j1Carteira 
   j1Especie  
   j1InstrC   
   n1Juros1Dia
   jTipo
   sBradCodEmpresa 
   sBradCarteira 
   jBradOcorrencia 
   jBradEspecie    
   jBradInstrucao  
   iBradDiasProt
   nBradJur1D
   j2Oco
   j2Carteira
   j2Especie
   j2InstrC
   n2Juros1Dia
   pUNeg
   iItauDiasProt
   iSantDiasProt
   lDefaultMigrarCIA
   nMulta
   nProRata
   jTpCobPag
</VarsToServer1>
<VarsToDb1>
   sDDFTabela = Tipo_Cobrancas
   sCodigo
   sDescricao
   pCC
   lBoleto
   lBancaria 
   jBanco
   j1Oco
   j1Carteira
   j1Especie
   j1InstrC
   n1Juros1Dia
   jTipo
   sBradCodEmpresa
   sBradCarteira
   jBradOcorrencia
   jBradEspecie
   jBradInstrucao
   iBradDiasProt
   nBradJur1D
   j2Oco
   j2Carteira
   j2Especie
   j2InstrC
   n2Juros1Dia
   pUNeg
   iItauDiasProt
   iSantDiasProt
   lDefaultMigrarCIA
   nMulta
   nProRata
   jTpCobPag
</VarsToDb1>
<ServerValids1>
   sCodigo           ; $_POST[.]!='' ; O Cdigo deve ser preenchido
   sDescricao        ; $_POST[.]!='' ; A Descrio deve ser preenchida
   lDefaultMigrarCIA ; flEhUnico("select count(*) from Tipo_Cobrancas where lDefaultMigrarCIA=1 and iVer=iVAt and pPId!=$_POST[pPId] and pUNeg=$_POST[pUNeg]") ; J existe um registro Default Migrao para a mesma CIA, verifique os registros, ou se existe registros exluidos na lixeira.
</ServerValids1>
psFileDDS/psTagDDS = dd_files/erp_Tipo_Cobrancas.dda / Esc_Padrao_2
sQry=   select a.pPId,          a.sCodigo,          a.sDescricao,          a.iVer   from Tipo_Cobrancas a   where a.pPId = {pEscId}     and a.iVer = a.iVAt
   select a.pPId,          a.sCodigo,          a.sDescricao,          a.iVer   from Tipo_Cobrancas a   where a.pPId = {pEscId}     and a.iVer = a.iVAt
dd_files/erp_Tipo_Cobrancas.dda
psEscId=3
psEscIdIrma1=-1
sVarCont=3
sQry=   select a.pPId,          a.sCodigo,          a.sDescricao,          a.iVer   from Tipo_Cobrancas a   where a.pPId = 3     and a.iVer = a.iVAt
sQry=   select a.pPId,          a.sCodigo,          a.sDescricao,          a.iVer   from Tipo_Cobrancas a   where a.pPId = 3     and a.iVer = a.iVAt
sQry=   select a.pPId,          a.sCodigo,          a.sDescricao,          a.iVer   from Tipo_Cobrancas a   where a.pPId = 3     and a.iVer = a.iVAt
sQry=   select a.pPId,          a.sCodigo,          a.sDescricao,          a.iVer   from Tipo_Cobrancas a   where a.pPId = 3     and a.iVer = a.iVAt
psQry=select current_transaction from rdb$database
durao 0, iDb=1
fhDBConnect - sUser=sysdba, Transaction ID=4302956 , hBase=Resource id #33, hTr=Resource id #34, ghBase=Resource id #33
no  um processo -> sQry=select a.pPId,          a.sCodigo,          a.sDescricao,          a.iVer   from Tipo_Cobrancas a   where a.pPId = 3     and a.iVer = a.iVAt
sQryXXX = select a.pPId,          a.sCodigo,          a.sDescricao,          a.iVer   from Tipo_Cobrancas a   where a.pPId = 3     and a.iVer = a.iVAt
1) fhDbIbaseQuery
inicio-
sRes=3~2.0 - DP DEPOSITO~DEPOSITO CONTA CORRENTE~9^
sQry=select a.pPId,          a.sCodigo,          a.sDescricao,          a.iVer   from Tipo_Cobrancas a   where a.pPId = 3     and a.iVer = a.iVAt
flDBDisconnect - phBase=Resource id #34, ghBase=Resource id #33
5
sRet=
sRes=3~2.0 - DP DEPOSITO~DEPOSITO CONTA CORRENTE~9
fim