[RESOLVIDO] Criação Ordem de Compra - CC0301

Procedures:

Código:

PROCEDURE pi-gera-pedido-compra:
    DEF VAR i-parcela AS INTEGER.
    DEF VAR l-temp    AS LOGICAL INIT NO.
    ASSIGN multiplicador = 1.
    ASSIGN preco = 100.00.
    FIND LAST bf-pedido-compr NO-LOCK NO-ERROR.
    IF AVAIL bf-pedido-compr THEN
      ASSIGN i-num-pedido = bf-pedido-compr.num-pedido + 1.
    ELSE
      ASSIGN i-num-pedido = 1.
    MESSAGE 'i-num-pedido ' i-num-pedido
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
   
    /* FIND FIRST empresa NO-LOCK NO-ERROR. */
    /* FIND FIRST bf-emitente NO-LOCK
        WHERE bf-emitente.cod-emitente = 4832 NO-ERROR.
    CREATE tt-pedido-compr.
    ASSIGN tt-pedido-compr.cod-maq-origem-mp    = 000
          tt-pedido-compr.num-processo        = 00
          tt-pedido-compr.num-sequencia        = 00  .... continua alimentando a tt-pedido */
         

    FIND LAST bf-ordem-compra NO-LOCK NO-ERROR.
    IF AVAIL bf-ordem-compra THEN
        ASSIGN i-num-ordem = bf-ordem-compra.numero-ordem + 100.
    ELSE
        ASSIGN i-num-ordem = 100.
    FIND FIRST ITEM WHERE item.it-codigo = "03.46.1050" NO-LOCK NO-ERROR.
    IF NOT AVAIL ITEM THEN NEXT.
    CREATE tt-ordem-compra.
    ASSIGN tt-ordem-compra.l-split          = NO
          /* tt-ordem-compra.cod-maq-origem-mp = tt-pedido-compr.cod-maq-origem-mp
          tt-ordem-compra.num-processo      = tt-pedido-compr.num-processo */
          tt-ordem-compra.num-sequencia    = 10
          /*tt-ordem-compra.ind-tipo-movto    = tt-pedido-compr.ind-tipo-movto*/
          tt-ordem-compra.aliquota-icm      = 0
          tt-ordem-compra.aliquota-ipi      = 0
          tt-ordem-compra.aliquota-iss      = 0
          tt-ordem-compra.cod-comprado      = item.cod-comprado
          tt-ordem-compra.cod-cond-pag      = 0
          tt-ordem-compra.cod-emitente      = 0
          /* tt-ordem-compra.cod-estab-gestor  = tt-pedido-compr.cod-estab-gestor */
          tt-ordem-compra.cod-estabel      = "2"
          tt-ordem-compra.cod-maq-origem    = 000
          tt-ordem-compra.cod-refer        = ''
          tt-ordem-compra.cod-roteiro      = ''
          tt-ordem-compra.cod-transp        = 101 /*teste*/
          tt-ordem-compra.codigo-icm        = 2
          tt-ordem-compra.codigo-ipi        = NO
          tt-ordem-compra.comentarios      = ''
          tt-ordem-compra.conta-contabil    = "3210300130054122" /*"03115104.5009254"*/
          tt-ordem-compra.contato          = ""
          tt-ordem-compra.ct-codigo        = '' /* '03115133' */ /* '03115104' */
          tt-ordem-compra.dat-ordem        = TODAY
          tt-ordem-compra.data-atualiz      = TODAY
          tt-ordem-compra.data-cotacao      = TODAY /*bf-contrato.dt_contrato*/
          tt-ordem-compra.data-emissao      = TODAY
          tt-ordem-compra.data-pedido      = ? /* tt-pedido-compr.data-pedido */
          tt-ordem-compra.dep-almoxar      = "ALM"  /* bf-contrato.cod-depos */
          tt-ordem-compra.ep-codigo        = 1 /*bf-contrato.cod_empresa*/ /*i-ep-codigo-usuario*/
          tt-ordem-compra.frete            = NO
          tt-ordem-compra.gera-edi          = YES
          tt-ordem-compra.hora-atualiz      = STRING(TIME,'HH:MM')
          tt-ordem-compra.impr-ficha        = NO
          tt-ordem-compra.ind-reajuste      = 0
          tt-ordem-compra.it-codigo        = ITEM.it-codigo /* "0010140000" */
          tt-ordem-compra.item-pai          = ''
          tt-ordem-compra.linha            = 0
          tt-ordem-compra.mo-codigo        = 0
          tt-ordem-compra.narrativa        = ''
          tt-ordem-compra.natureza          = 1 /*compra*/
          tt-ordem-compra.nr-alt-preco      = 0
          tt-ordem-compra.nr-contrato      = 0
          tt-ordem-compra.nr-dias-taxa      = 0
          tt-ordem-compra.nr-ord-orig      = 0
          tt-ordem-compra.nr-processo      = 0
          tt-ordem-compra.nr-requisicao    = 0
          tt-ordem-compra.nr-tab            = ''
          tt-ordem-compra.num-pedido        = 0
          tt-ordem-compra.num-seq-item      = 0
          tt-ordem-compra.numero-ordem      = i-num-ordem
          tt-ordem-compra.op-codigo        = 0
          tt-ordem-compra.op-seq            = 0
          tt-ordem-compra.ordem-servic      = 0
          tt-ordem-compra.origem            = 1 /*manual*/
          tt-ordem-compra.perc-descto      = 0
          tt-ordem-compra.prazo-entreg      = 0
          tt-ordem-compra.pre-unit-for      = 1
          tt-ordem-compra.preco-fornec      = 1
          tt-ordem-compra.preco-orig        = 1
          tt-ordem-compra.preco-unit        = 1
          tt-ordem-compra.qt-acum-nec      = 10
          tt-ordem-compra.qt-solic          = 10
          tt-ordem-compra.requisitante      = 'super'
          tt-ordem-compra.sc-codigo        = ''
          tt-ordem-compra.sequencia        = 0
          tt-ordem-compra.situacao          = 1
          tt-ordem-compra.taxa-financ      = NO
          tt-ordem-compra.tp-despesa        = 31 /*bf-emitente.tp-desp-padrao*/
          tt-ordem-compra.usuario          = "super"
          tt-ordem-compra.valor-descto      = 0
          tt-ordem-compra.valor-frete      = 0
          tt-ordem-compra.valor-taxa        = 0 .
       
ASSIGN i-parcela = 0.
    ASSIGN i-parcela = i-parcela + 1.
    FIND FIRST ITEM NO-LOCK
        WHERE ITEM.it-codigo = tt-ordem-compra.it-codigo NO-ERROR.
    CREATE tt-prazo-compra.
    ASSIGN tt-prazo-compra.cod-maq-origem  = tt-ordem-compra.cod-maq-origem
          tt-prazo-compra.num-processo    = tt-ordem-compra.num-processo
          tt-prazo-compra.num-sequencia    = tt-ordem-compra.num-sequencia
          tt-prazo-compra.ind-tipo-movto  = tt-ordem-compra.ind-tipo-movto
          tt-prazo-compra.numero-ordem    = tt-ordem-compra.numero-ordem
          tt-prazo-compra.parcela          = i-parcela
          tt-prazo-compra.it-codigo        = tt-ordem-compra.it-codigo
          tt-prazo-compra.un              = item.un /* bf-item-contrato.un  */
          tt-prazo-compra.quantid-orig    = 10 /* item_data_entrega.quantidade  */
          tt-prazo-compra.quantidade      = 10 /* item_data_entrega.quantidade  */
          tt-prazo-compra.quant-saldo      = 10 /* item_data_entrega.quantidade  */.....
          /*Continua alimentando a tt-prazo-compra*/
         
    ASSIGN l-temp = TRUE.

    CREATE tt-cotacao-item.
    ASSIGN tt-cotacao-item.cod-maq-origem    ...  /* alimenta a tt-cotacao*/

END PROCEDURE.
/****************************************************************************************/
PROCEDURE pi-log-erros:
    FOR EACH tt-erros-geral NO-LOCK.
        PUT    'tt-erros-geral.identif-msg        ' tt-erros-geral.identif-msg        skip 
                'tt-erros-geral.num-sequencia-erro ' tt-erros-geral.num-sequencia-erro skip
                'tt-erros-geral.cod-erro          ' tt-erros-geral.cod-erro          skip
                'tt-erros-geral.des-erro          ' tt-erros-geral.des-erro          skip
                'tt-erros-geral.cod-maq-origem    ' tt-erros-geral.cod-maq-origem    skip
                'tt-erros-geral.num-processo      ' tt-erros-geral.num-processo      SKIP
                '======================================================================='.
    END.
END PROCEDURE.
OUTPUT CLOSE.