'Nome       : OprDocAdi_Cap.par
'Tipo       : DOC
'Data       : 2009/11/27
'Versao     : 1.0
'Descricao  : Formato para opcoes adicionais de ordem de producao

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


'==============================================================================
#DEF:IDE - Definicoes base
'==============================================================================
'aspecto
Dimensao da janela             [AspDim]=800T
'Dimensao da janela             [AspDim]=1024T

'posicao
Posicao base X                  [BasPx]=AUT
Posicao base Y                  [BasPy]=AUT
##


'==============================================================================
#VAR - Rgistar variaveis
'==============================================================================
Posicao X - Base                  [BaseXi]=BasPx +  200
Posicao Y - Base                  [BaseYi]=BasPy + 1000

'zona base
Dimensao X                      [ZonBasDx]=11850
Dimensao Y                      [ZonBasDy]= 7200

Posicao minima - X              [ZonBasX1]=BasXi
Posicao minima - Y              [ZonBasY1]=BasYi

Posicao maxima - X              [ZonBasX2]=ZonBasX1 + ZonBasDx
Posicao maxima - Y              [ZonBasY2]=ZonBasY1 + ZonBasDy

'zona de dados a usar
Posicao minima - X              [ZonUsaX1]=ZonBasX1 +  250
Posicao minima - Y              [ZonUsaY1]=ZonBasY1 + 1400

Posicao maxima - X              [ZonUsaX2]=ZonBasX2 -  250
Posicao maxima - Y              [ZonUsaY2]=ZonBasY2 -  250

Dimensao X                      [ZonUsaDx]=ZonUsaX2 - ZonUsaX1
Dimensao Y                      [ZonUsaDy]=ZonUsaY2 - ZonUsaY1

Posicao media - X               [ZonUsaXM]=ZonUsaX1 + 5500
Posicao media - Y               [ZonUsaYM]=ZonUsaY1 + 3500


'campo de dados
Base - Posicao X                [CmpBasPx]=ZonUsaX1 + 0000
Base - Posicao Y                [CmpBasPy]=ZonUsaY1 + 0100

Dimensao X - identificacao      [CmpDxIde]=2000
Dimensao X - valor              [CmpDxCmp]=3500


'zonas de identificaco
Posicao X                       [ZonIdePx]=BasPx + 200
Posicao Y                       [ZonIdePy]=BasPy + 500


'zona 1
Posicao X                       [Zo1BasPx]=CmpBasPx
Posicao X                       [Zo1BasPy]=CmpBasPy +  100

'zona 2
Separador - posicao X           [Zo2SepPx]=ZonUsaX1 + 5650
Separador - posicao Y           [Zo2SepPy]=ZonUsaY1 +  100
Separador - dimensao Y          [Zo2SepDy]=ZonUsaDy -  200

Posicao X                       [Zo2BasPx]=Zo2SepPx +  150
Posicao Y                       [Zo2BasPy]=Zo1BasPy

'zona 3
Separador - posicao X           [Zo3SepPx]=Zo2BasPx
Separador - posicao Y           [Zo3SepPy]=ZonUsaY1 + 2350
Separador - dimensao X          [Zo3SepDx]=5600

Posicao X                       [Zo3BasPx]=Zo2BasPx
Posicao Y                       [Zo3BasPy]=Zo1BasPy + 2500


'temperaturas
Temperatura - Posicao Y        [TempZonPY]=BaseYi + 3000

Ide de zona - Posicao X           [TempXI]=BaseXi+0000
Dimensao de valor - X             [TempDx]=600

Temp.- Zona 2 - Posicao X      [TempZo2PX]=TempXi + 5000
Temp.- Zona 2 - Posicao Y      [TempZo2PY]=TempZonPY + 1000


Temperatura ZON - Dimensao X   [TempDxZon]= 500
Temperatura IDE - Dimensao X   [TempDxIde]=   0
Temperatura CMP - Dimensao X   [TempDxCmp]= 500

Temperatura Base - Posicao Y    [TempYbas]=TempZonPY

Temperatura MIN - Posicao Y     [TempMinY]=TempYbas +  500
Temperatura NOR - Posicao Y     [TempNorY]=TempYbas + 1000
Temperatura MAX - Posicao Y     [TempMaxY]=TempYbas + 1500

Temperatura 1 - Posicao X         [TempX1]=TempXI + TempDx
Temperatura 2 - Posicao X         [TempX2]=TempX1 + TempDx
Temperatura 3 - Posicao X         [TempX3]=TempX2 + TempDx
Temperatura 4 - Posicao X         [TempX4]=TempX3 + TempDx
Temperatura 5 - Posicao X         [TempX5]=TempX4 + TempDx
Temperatura 6 - Posicao X         [TempX6]=TempX5 + TempDx


##


'==============================================================================
#PAG - Definicao da pagina ----------------------------------------------------
'==============================================================================
Identificador                     [IDE]=PagDoc
Descricao                         [DES]=Ordem de Produção
##


'==============================================================================
'- Zona de identificacao ------------------------------------------------------
'==============================================================================


'==============================================================================
#ADC - Campo adicional
'==============================================================================
Identificador                     [IDE]=TDO_IDE
Descricao                         [DES]=Tipo

Tipo/Aspecto                      [TIP]=IDE
Alinhamento                       [ALI]=
Posicao/Dimensao CMP              [PDI]=ZonIdePx,ZonIdePy,1000,300

Variavel                          [VAR]=
Valor a mostrar                   [VER]=[DES]
Cor                               [COR]=[INF]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#ADC - Campo adicional
'==============================================================================
Identificador                     [IDE]=TDO_VAL
Descricao                         [DES]=Tipo

Tipo/Aspecto                      [TIP]=IDE
Alinhamento                       [ALI]=<
Posicao/Dimensao CMP              [PDI]=TDO_IDE_X2 + 15,ZonIdePy,2000,300

Variavel                          [VAR]=CPR_OprDoc_OprTdo$
Valor a mostrar                   [VER]=[VAR]
Cor                               [COR]=[INP]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##



'==============================================================================
#ADC - Campo adicional
'==============================================================================
Identificador                     [IDE]=NDO_IDE
Descricao                         [DES]=Numero

Tipo/Aspecto                      [TIP]=IDE
Alinhamento                       [ALI]=
Posicao/Dimensao CMP              [PDI]=TDO_VAL_X2 + 200,ZonIdePy,1000,300

Variavel                          [VAR]=
Valor a mostrar                   [VER]=[DES]
Cor                               [COR]=[INF]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#ADC - Campo adicional
'==============================================================================
Identificador                     [IDE]=NDO_VAL
Descricao                         [DES]=Numero

Tipo/Aspecto                      [TIP]=IDE
Alinhamento                       [ALI]=<
Posicao/Dimensao CMP              [PDI]=NDO_IDE_X2 + 15,ZonIdePy,2500,300

Variavel                          [VAR]=CPR_OprDoc_OprNdo$
Valor a mostrar                   [VER]=[VAR]
Cor                               [COR]=[INP]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#ADC - Campo adicional
'==============================================================================
Identificador                     [IDE]=IDE_SEP1
Descricao                         [DES]=

Tipo/Aspecto                      [TIP]=IDE
Alinhamento                       [ALI]=
Posicao/Dimensao CMP              [PDI]=ZonUsaX1,ZonUsaY1,ZonUsaDx,60

Variavel                          [VAR]=
Valor a mostrar                   [VER]=[DES]
Cor                               [COR]=[INF]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
'- Zona 1 ---------------------------------------------------------------------
'==============================================================================
'==============================================================================
#ADC_x - Campo adicional
'==============================================================================
Identificador                     [IDE]=LOC_SEP_UNP2
Descricao                         [DES]=

Tipo/Aspecto                      [TIP]=IDE
Alinhamento                       [ALI]=
Posicao/Dimensao CMP              [PDI]=TempXI,LocYbas,ZonSepDx,60

Variavel                          [VAR]=
Valor a mostrar                   [VER]=[DES]
Cor                               [COR]=[INF]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=FAC_GM
Descricao                         [DES]=Factor g/m

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo1BasPx,Zo1BasPy+0500,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,1500,N

Variavel                          [VAR]=CPR_OprDocEx_FacGm$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=AD_BD_MD
Descricao                         [DES]=AD/BD/MD

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo1BasPx,Zo1BasPy+1000,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,1000,N

Variavel                          [VAR]=CPR_OprDocEx_AdBdMd$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=PonVer
Descricao                         [DES]=Ponto Verde

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo1BasPx,Zo1BasPy+1500,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,1000,N

Variavel                          [VAR]=CPR_OprDocEx_PonVer$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=Trat
Descricao                         [DES]=Tratamento

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo1BasPx,Zo1BasPy+2000,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,1000,N

Variavel                          [VAR]=CPR_OprDocEx_Trat$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=Med
Descricao                         [DES]=Medidas (cm)

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo1BasPx,Zo1BasPy+2500,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,3000,N

Variavel                          [VAR]=CPR_OprDocEx_Med$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=Esp1F
Descricao                         [DES]=Espessura [micro_m] (1 folha)

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo1BasPx,Zo1BasPy+3000,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,1000,N

Variavel                          [VAR]=CPR_OprDocEx_Esp1F$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=Esp2F
Descricao                         [DES]=Espessura [micro_m] (2 folhas)

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo1BasPx,Zo1BasPy+3500,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,1000,N

Variavel                          [VAR]=CPR_OprDocEx_Esp2F$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=UniQua
Descricao                         [DES]=Unidade de quantidade

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo1BasPx,Zo1BasPy+4000,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,1000,N

Variavel                          [VAR]=CPR_OprDocEx_UniQua$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=UniEmb
Descricao                         [DES]=Unidade de embalagem

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo1BasPx,Zo1BasPy+4500,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,1000,N

Variavel                          [VAR]=CPR_OprDocEx_UniEmb$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=ImpNla
Descricao                         [DES]=Numero de lados de impressão

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo2BasPx,Zo1BasPy+0500,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,1000,N

Variavel                          [VAR]=CPR_OprDocEx_ImpNla$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=ImpTip
Descricao                         [DES]=Tipo de impressão

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo2BasPx,Zo1BasPy+1000,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,2000,N

Variavel                          [VAR]=CPR_OprDocEx_ImpTip$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=ImpCor
Descricao                         [DES]=Distribuição das cores

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo2BasPx,Zo1BasPy+1500,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,1000,N

Variavel                          [VAR]=CPR_OprDocEx_ImpCor$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=ImpDes
Descricao                         [DES]=Designação da impressão

Tipo/Aspecto                      [TIP]=ZTX
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo2BasPx,Zo1BasPy+2000,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,2900,N

Variavel                          [VAR]=CPR_OprDocEx_ImpDes$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=TipCor
Descricao                         [DES]=Tipo de corte

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo2BasPx,Zo1BasPy+3500,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,2000,N

Variavel                          [VAR]=CPR_OprDocEx_TipCor$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=TipSol
Descricao                         [DES]=Tipo de solda

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo2BasPx,Zo1BasPy+4000,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,1000,N

Variavel                          [VAR]=CPR_OprDocEx_TipSol$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=Destino
Descricao                         [DES]=Destino

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=Zo2BasPx,Zo1BasPy+4500,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT     ,AUT          ,2000,N

Variavel                          [VAR]=CPR_OprDocEx_Destino$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#x_PAG - Definicao da pagina ----------------------------------------------------
'==============================================================================
Identificador                     [IDE]=PagDiv
Descricao                         [DES]=Diversos
##


'==============================================================================
#x_CMP - Campo
'==============================================================================
Identificador                     [IDE]=Emb
Descricao                         [DES]=Embalagem

Tipo/Aspecto                      [TIP]=ZTX
Formato                           [FRM]= 

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=BaseXi,BaseYi+500,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT   ,AUT  ,7000,1500

Variavel                          [VAR]=CPR_UnpMaqEx_NedinaEmb$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#x_CMP - Campo
'==============================================================================
Identificador                     [IDE]=Obs
Descricao                         [DES]=Observações

Tipo/Aspecto                      [TIP]=ZTX
Formato                           [FRM]= 

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=BaseXi,Emb_Y2 + 200,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT   ,AUT         ,7000,1500

Variavel                          [VAR]=CPR_UnpMaqEx_NedinaObs$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#x_CMP - Campo
'==============================================================================
Identificador                     [IDE]=PonCri
Descricao                         [DES]=Pontos Críticos (a inspeccionar)

Tipo/Aspecto                      [TIP]=ZTX
Formato                           [FRM]= 

Modo de uso                       [USO]=VER
Posicao/Dimensao IDE           [PdiIde]=BaseXi,Obs_Y2 + 200,2500,N
Posicao/Dimensao CMP           [PdiCmp]=AUT   ,AUT         ,7000,1500

Variavel                          [VAR]=CPR_UnpMaqEx_NedinaPonCri$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#VBS:TX - VbScript
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'---------------------------------------------->'Comentario (49)
'------------------------------------->'Comentario (40)

Dim VarXxx                             'variavel XXX


Sub FxIni 'inicializar wizzard
msgbox "FxIni >?<"

'with Rda
'end with
end sub


Sub FxFim 'terminar wizzard
'msgbox "FxFim >?<"
end sub


Function PagModo_Seg() 'pagina modo de funcionamento - seguinte
end Function


Sub PagFim() 'fim do wizzard
end sub


sub dbgVar 'debug de variaveis
with wiz
'tmp1 = .VbsVar("xMax")            'consultar valor de variavel
'tmp2 = .VbsVar("yMax$")           'consultar valor de variavel

tmp1 = xMax          'consultar valor de variavel
tmp2 = yMax          'consultar valor de variavel


'.MsgVer "xMax",tmp1
'.MsgVer "yMax$",tmp2 
end with
end sub


'------------------------------------------------------------------------------
'#RDA - Funcoes RDA
'------------------------------------------------------------------------------
'- Campos ---------------------------------------------------------------------
Sub Rda_CmpPrp 'preparar campos
with Com
'.MsgVer "RDA - Campos","Preparar"
end with
end sub


'- Paginas --------------------------------------------------------------------
Sub Rda_PagVerPrp_1 'preparar pagina a mostrar - pagina 1
with Com
'.MsgVer "RDA - Pagina","Preparar - Pagina 1"
end with

with Rda
vop = .VbsVar("P1_Cmp00_X2")
end with

with Com
.MsgSbaLpz
'.MsgSba 1, "Pagina 1"
end with
end sub


Sub Rda_PagVerPrp_2 'preparar pagina a mostrar - pagina 2
with Com
'.MsgVer "RDA - Pagina","Preparar Pagina 2"
end with

with Rda
'vop = .VbsVar("P1_Cmp00_X2")
end with

with Com
.MsgSbaLpz
'.MsgSba 2, "Pagina 2"
end with
end sub


Sub Rda_PagVerPrp_3 'preparar pagina a mostrar - pagina 3
with Com
'.MsgVer "RDA - Pagina","Preparar Pagina 3"
end with

with Rda
'vop = .VbsVar("P1_Cmp00_X2")
end with

with Com
.MsgSbaLpz
'.MsgSba 3, "Pagina 3"
end with
end sub


Sub Rda_PagVerPrp_4 'preparar pagina a mostrar - pagina 4
with Com
'.MsgVer "RDA - Pagina","Preparar Pagina 4"
end with

with Rda
'vop = .VbsVar("P1_Cmp00_X2")
end with

with Com
.MsgSbaLpz
'.MsgSba 4, "Pagina 4"
end with
end sub


'- Terminar -------------------------------------------------------------------
Sub Rda_FimCnf 'confirmar
with Com
'.MsgVer "RDA - Terminar","Confirmado"

'res = .MsgCnf("Terminar", "")               'mostrar mensagem de confirmacao
res = 1                                     'validar
end with

with Rda
.VbsRegVar "RegCnf", res                    'registar confirmacao
end with
end sub


Sub Rda_FimCan 'cancelar
with Com
'.MsgVer "RDA - Terminar","Cancelado"
end with
end sub


##
